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Announcing: 


The SOUNGE KIHT 


Megabytes of memory on a credit-card-s Sen 


Give your Tandy 100/102 the power it deserves without sacrificing ponsniiy o a EN. > 
The SoundSight Gold Card lets you add as many megabytes of RAM and ROM as you 
advantages other expansions just can't match. 



















* Allows Unlimited RAM and ROM expansion in increments from 
128k to 1mb per card with 2 mb cards available in '88. Additional 
slots piggyback allowing 10 mb or more! 


* Dual Card Slots with dual directories allow easy 
transfer of megabytes of data from card to card 
or computer to computer in seconds. 


SoundSight 
Gold Card 


Memory Credit: 


lmeg 


Battery expiration datc: 


* Replaceable, 
Card-Contained 
Lithium Battery. 


* Menu Driven ROM resident 
operating system with Basic V/O 
functions, read/write error detection, and 
nondestructive RAM test. Accesses Text, Basic 
and Co files directly and operates in Random Access 
Mode. Each byte is directly accessable from Basic. 


* SoundSight Gold Cards are also available in permanent One- 


Time-Programmable or Read-Only-Reprogrammabie memory cards for 
large nonvolatile software application use in conjuction with RAM cards. 


Optional new ROM ELIMINATOR lets you load and run 
multiple ROMs directly from the SoundSight Gold Card, 
dispensing with the need for extra ROM sockets or even 

having your ROM chips with the computer! 





* ROM resident Forms Generator with full Telecommunications and Desk Top package 
for Law Entorcement Incident Reports, or any custom data entry applications. 


* Point of Sale Inventory Control Software 

* New Basic Compiler compiles basic programs to machine code, condensing them to 
fraction of there original size and speed. Runs them directly from cards. (Avail. Feb. '88.) 

* New Text Editor opens and edits files as large as available rarn.(Avail. Feb. 88.) 





SoundSight offers customized harcdware/software systems for law enforcement, retail, 
warehousing/distribution and other vertical markets, as well as third party dev. (C Poega: 
We're ready to meet your needs TODAY! 


Pricing available from 128k to 10mb with128k at $399.95; 256k at $549.95: and 51 2k at 
$749.95; Additional cards for backup are available. 
CONTACT: 
SoundSight MBM Inc., 225 West Broadway, Suite #509, Glendale, CA 91 204 
Phone (213) 463-9457 or (818) 240-8400 


FREE ISSUE 


Add POWER to your 
portable with 
PICO—The Magazine of 


PORTABLE COMPUTING ! 


, S Take your first issue FREE 
CES d with the coupon below! 


"X 
E: | i aL 


"Portable, Briefcase, Laptop, Notebook." 


hatever you call them, PICO sizes them all up every month. 
PICO is where you'll find the hardware, the software, the applications, 
peripherals and more that help you get all the power your portable can deliver! 
Issue after issue, PICO's computing pros bring you valuable how-to's, tips 
and techniques, extended tutorials, on-target news, reviews and previews, 
software updates, buyer's guide — all designed to make you a better computerist, 
whatever your favorite portable brand or flavor. 








"The hottest magazine for the hottest new technology in computing!" 
says tech consultant Greg Resker. [aaa 





SEE FOR Subscription includes 
YOURSELF FREE MEMBERSHIP 
WITH YOUR on The Source database 
FIRST ISSUE, FREE! (a $49.95 value) 

Complete the coupon and mail plus access to the PICO BBS! 





today to get your first issue of 
PICO FREE and without obliga- Fe SE EA SIRS S| 























tion of any kind. If you're not Buy smart - Computer smart with PICO. 
satisfied, just write “cancel” on Complete the coupon now and mail today! 
the invoice and owe nothing. Mail to: PICO P.O. Box 428, Peterborough, NH 03458-0428 
The Issue Is yours to keep. " YES! send my first issue of PICO to examine for 30 days, FREE! 
Otherwise, a full year of PICO's Also enter my no-risk subscription for one year at $29.97* — 30% off the cover price. 
money-saving help and exper- Subscription includes membership in THE SOURCE, a $49.95 value, plus access to the PICO 
tise is just $29.97, GUARAN- BBS. If not satisfied, I'll mark "cancel" on the invoice and owe nothing. 
TEED. Cancel at any time and 
' (J Payment/Charge enclosed. Please send BONUS 
receive prompt refund of the | Q1 Bill me. I'll skip the BONUS—Portable Computer Buyer's Guide. 
unused portion of your sub- (4 2 Yrs, $55 (Save $5) (Full refund guarantee.) 
scription. T CHARGE MY: OMCOVisaCard# — — — Exp. Dt — — 
Send payment with your order — Address s E : 
with full refund guarantee — and 
get PICO's exclusive Buyer's City : State ^ Zip 
Guide to 88 current portables | 
including data on 17 Computer Type — = | 
performance catagories! *Canada & Mexico, $32.97, all other foreign, $49.97. Airmail add $50.00, US funds drawn on US banks 
only. Please allow 4-6 weeks for delivery of your first issue. 
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ROM WITH A VIEW 


his month we tune in on a very innovative use for the Notebook 

marvel.. music. Author John Comeau has been busy making 

some minor adjustments to the cabling to make the Model 100 a 
perfect companion for his electronic piano... somewhat "techie" but very 
worthwhile. 

This article brings to light one of the most fascinating aspects of the 
Model 100: versatility. Everything the notebook computer touches seems 
to be improved or enhanced. In the past, we've seen the model 100 
improve telephones, calculators, cash registers, cellular phones, main- 
frame computers, children's toys, and more. In the future, I expect we'll 
see notebook computers interfaced with hundreds of other household 
and office devices. I’ve heard that some major appliance companies are 
connecting dishwashers and refrigerators to RS-232 outputs for diagnos- 
tics (they call for service themselves). Programmable microwaves, 
computer-connected VCR's, programmable vacuum cleaners and lawn- 
mowers... what's next? 

The way we publish this magazine is an example of technology 
utilized to the maximum. Authors around the country type in articles 
and reviews on their notebook (and sometimes other) computers. Often, 
they'll call our bulletin board system and upload the article to us, but 
usually they send us their article on tape or disk. Then it's transferred to 
our proofreading computer, usually an MS-DOS portable like the Wang 
or Datavue Spark. The article gets edited in MicroSoft Word. From there, 
it's transferred to a Tandy 4000 computer... a real winner... and Aldus 
PageMaker where it's roughly designed into the neat little columns and 
boxes which you see. The next step is Diana's Macintosh where it is final- 
designed into an article which is not only informative, but looks appeal- 
ing, too. Once complete, the diskette is wisked off to a National Colorite's 
Linotronic 300 typesetting machine which converts the PageMaker page 
images to negatives... ready to be printed. The characters you are reading 
now are direct from my computer, never having seen paper prior to the 
actual magazine pages. 

This is our fourth issue of Portable 100 since we purchased it from 
C.W. Communications. It took us some time to get it up and running, but 
now that the system is in place, we're ready to make some major changes 
to the look and feel of the magazine. Please watch for them... we're quite 
proud of PORTABLE 100. 

Would you like to help us out? If you have a moment, check your 
address label. There should be a six digit number which corresponds to 
your expiration date, for example 890328 designates an expiration date 
of March 28, 1989. If our records don't match yours, send off a note to us. 
If your subscription is about to expire, send us a renewal... you'll be 
saving us some serious time and money and saving yourself the agony 
of possibly missing a valuable issue. 

Just a side-note: Our former fulfillment house, who has since been 
fired, has been getting a number of calls from people who want to 
subscribe. Their 800 number ison some of our old mailingsand literature. 
We recently found out that they have been saying “I’m Sorry, but 
Portable 100is no longer in business". Well guys... APRIL FOOLS! We're 
still here and better than ever! 

- Mark Robinson 
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Cruisin’ Corrections 
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am writing in regards to the 
article Cruisin with the Model 
100 in the January 1988 issue. 
There are some basic design flaws 
with the power supply shown. While 
it is true you can get approximately 
six volts by tricking a five volt regula- 
tor with the resistor divider, it is not 
necessary as you can use a 7806 in- 
stead ofa 7805 which provides a good 
six volt source. Substituting a 7806 
for the7805 will allow the deletion of 
R2and R3. The 15 volt one watt zener 
in combination with R1 provides a 
degree of protection against noise 
and spikes on the supply line. It is im- 
perative that you place capacitors 
between pins 1 and 2 as well as be- 
tween 2 and 3 regardless of design to 
prevent oscillation in the regulator. 
There are many times the circuit as 
shown will work properly, but a .1 
wF cap placed on each side of the 
regulator will insure proper opera- 
tion. This is detailed in the Motorola 
data books as well as National data 
books. Note that these capacitors 
need to be as close a possible to the 
regulator for proper functioning. 
The supply should be able to sup- 
ply about 400mA of current at six 
volts with no trouble as the regulator 
is a one amp device. I would recom- 
mend using a one amp fuse on the 
input for safety and protection. 
Larry G. Newson Sr. 
Webster, MA 
The author of that piece, when we 
asked him about your concerns, stated 
that he felt the capacitors were not needed 
in this case. He said that if this unit were 
the only regulator in the entire power 


circuit, then the capacitors would be 


absolutely required. However, because 
the Tandy computer already has its own 





built-in voltage regulator, amy power 
variations would be well within its toler- 
ances (the wall power supply is none to 
stable in its own right,as anyone who has 
dealt directly with the electric company 
will beable to tell you). Hence he left them 
out to simplify the construction and 
make it easier to find parts. 

Eds 





I was the fifth of 
my family to get 
a Model 100. 





PORTABLE PHONE CRASHES 
DOWNLOAD 

I bought my Model 100 to access 
CompuServe’s aviation weather (GO 
EMD). I was the fifth of my family and 
cousins to get a Model 100. My sister 
got a Model 200 for Christmas. My 
computer understanding was mini- 
mal. I had a problem that caused me 
to send my laptop back to Radio 
Shack to have them look at it. 

The problem was simple but 
drove me crazy. I figured that I did 
not want to download the entire ses- 
sion with CompuServe to conserve 
memory. When I would press file to 
download the screen would start 
printing out undefinable characters 
followed by a solid block line. 

Radio Shack suggested that I 
check my parameters. I checked my 
dad's machine and his was set up just 
like mine. Also mine always worked 
fine as long as I did not try to down- 
load. Finally, I got to snooping 





around the house and found my 
portable telephone base station 
downstairs, where I always used my 
computer, on telecommunications. I 
unhooked the phone station from the 
outlet. Presto, it worked just great. 
We love your/our magazine. Dad 
gave me and my cousin subscrip- 
tions forour birthdays. He subscribes 
also. Keep up the good work. 
Everitt B. Dupont 
Toughkenamon, PA 
Tandy laptop users have more trouble 
with strange phone hookups than any 
other group I've seen. It appears that if it 
isn’t a standard simple model telephone 
hookup when you're experiencing tele- 
communications problems, then almost 
always it's the phone system. 
Eds 


TIC-TAC-TOE CORRECTIONS 

It is with great appreciation that I 
again receive a magazine that sup- 
ports my Model 100 computer. 

The Tic-Tac-Toe program in the 
January, 1988 issue is simple, but fun. 
I did find a couple of errors in it, 
though, which had to be corrected 
before I could make it run. The letter 
O in both line 113 and in line 210 had 
to be changed to the figure 0. Line 500 
had to be changed to read "PRINT 
@80”. The directions in line 115 had 
to be changed to read "type 00" to 
clear the board. 

Those changes caused me to won- 
der if I could improve the program 
further. Enclosed is a slightly revised 
and renumbered program which I 
feel runs a bit better. Double entries 
are not needed and players are re- 
minded whose move it is. 

Warren S. Gibson 
Olympia, WA 
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10 CLS:DEFINTA 

20 LINE(177,19)-(233,19) 

30 LINE(CI77,35)- (233, 35) 

40 LINE(197,0)-(197,56) 

50 LINE(215,02—(215,56) 

60 PRINT@8@," X or OF "3 

70 A$=INPUT#$( 1) 

Ba IFA$=CHR$ (27) THENMENU 

90 IFAS="@" THENIQ@ 

100 PRINTA$;" at position 1-9:"; 
110 B$-INPUTS$(1) 

120 IFBS=CHR¢(27) THENMENU 
130 IFRS<"Q"ORBS>"9" THENI10 
140 B=VAL (BRS) 


250 IFR-QOTHENGOTO10 
260 PRINTABG, SPACES (27) 
270 RETURN 





150 PRINT@161,"To start new game type 0.":PRINT 3241,"Press ESC for Menu." 
160 IFR-1THENPRINT871,4$:GOSUPRZó6U0:GOTO60 

170 IFE-Z2THENPRINTà74,4$:GOSUBRZ60:GOTO50 

[180 IFE-STHENPRINTQ77,4$:GOSUBZ60: GOTO&6Q 

190 IFP-4THENPRINT3151,4$:GOSURZ60: GOTOSO 

200 IFBsSTHENPRINTà154,4$:GOSUPZ6U0:GOTO5Q 

[210 IFB-6THENPRINT&157;,4$:GOSUBZ60:GOTO5Q0 

220 IFB=7THENPRINT@231, A$? GOSUBZ469: GOTOAU 

230 IFR=8STHENPRINT@234, A$? GOSUB2Z6]:G0TO06@ 

240 IFR=9THENPRINT@237, A$? GOSUBZ460? GOTO46O 








Listing 1. A revised edition of Tic-Tac-Toe. 


For an updated Tic-Tac-Toe, see list- 
ing one. 
Eds 


EMBEDDING PRINTER 
COMMANDS 

I think you may have inadver- 
tently given some incorrect advice in 
response to Fred Forrester’s letter in 
the 1/0 section of the Jan., 1988 issue. 

Mr. Forrester wanted to know 
how to embed printer commands in 
his text files and you printed a short 
BASIC program to help with that. 

Unfortunately, your solution 
doesn’t work. To begin with, Line 20 
should read: “20 PRINT#1, 
CHR$Q7)". By leaving you the file 
number, all the program does is print 
an escape character to the screen; 
which has no effect. 

Secondly, you can't load a RAM 
file into a document you are editing 
with the F2 (LOAD) command. the 
computer automatically assumes 
that you want to load from a cassette 
tapeand will hang up until you press 
SHIFT BREAK. Specifying the file as 
RAM:ESC doesn't work either; the 
load is aborted. 

Finally, there isan easy way to put 
ESC sequences in your text docu- 
ments. Just type: CTRL P followed by 
the ESC key. Of course, this method 
has its own drawbacks (listed on 





page 60 of the Owner's Manual) but it 
will work for some types of files. 
All in all, a text-formatter of some 
kind is essential for making the most 
of your printer with the Model 100. 
Michael A. Wilson 
California, MD 
Don't know what happened to that 
answer. On looking back at it, it doesn't 
make sense to us either. Some one must 
have spaced-out there for a few moments. 
Sorry for the inconvenience. We'll try 
our best to prevent this in the future. 
Eds 


OPTION ROM WARNING 
Readers should be aware. WARN- 
ING. Traveling Software TSDOS-100 
and PCSG Super ROM are not com- 
patible. Problems occur in the 
spreadsheet. Neither manufacturer 

has resolved problem 

Kevin Marsh 
Greenville, SC 


OF REPRINTS AND BATTERIES 

I have enjoyed your magazine 
from the first issue! 

One of the most valuable articles, 
was the one giving printer codes to 
set the printer in the October 13, 1983 
issue. 

I'malwaysinastateof panic when 
I misplace this particular issue. This 
article would be especially valuable 





and it might be worth reprinting! 

As you know, the 100 does not 
permit printer codes to be easily 
imbedded in text. This article utilizes 
the code and graph keys to send the 
information to the printer. 

Even though we've said it a mil- 
lion times, another won't hurt 
(especially since several readers 
have been complaining recently.) 
Most re-chargeable batteries suffer 
from memory. 

Wanting full power, we recharge 
the batteries often, forgetting that 
they must be allowed to be fully dis- 
charged. Many portable video cam- 
eras and the Model 100/102 turn 
themselves off before batteries are 
completely discharged. 

If batteries are not allowed to 
completely discharge occasionally, 
they get use to a top off and will not 
deliver the full charge potential. A 
small flashlight works fine for dis- 
charging, and the bulb gives a good 
indicator. A small battery tester is a 
valuable tool for finding if a particu- 
lar battery was fully charged, or if it 
discharged quicker than the rest. 

All re-chargeable batteries will fit 
the 100/102. The small springs have 
to beslightly adjusted with long nose 
pliers to fit the dimple in the tip of the 
battery. 

If you need more capacity, Radio 
Shack sells four D-cell holders very 
reasonably. Also they sell a plug that | 
fits the battery input on the 100. 
Observe the polarity (the plus side of 
the cell holder goes to the outside of 
the plug.) A flexible wire2 conductor 
wire such as a household extension 
cord works well. 

Iused broad rubber bands around 
the holder, but alkaline cells had so 
much life, I finally just used black 
plastic tape around the whole holder. | 
When possible, I try to use the electric 
adapter, but I'll have to admit it's 
easy to just use battery power. 

I suppose the technical articles are 
fine, but short useful things interest 
me more! 

John Fulton 
Indianapolis, IN 
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If we had a copy of that issue, we might 
be able to do something about reprinting, 
but when we took over there were no files 
on anything previously published. Nor 
can we find any cache of back issues 
which might help. 

Eds 


A FEW MORE CORRECTIONS 

I was pleased to see the PORT- 
ABLE 100 Magazine back in circula- 
tion and I have been reading all is- 
sues with interest. However, your 
response to Fred Forrester in the 
January issue had errors and I felt I 
should respond quickly. 

I have enclosed the letter that I 
wrote to Fred this week in which I 
gave him some tips on embedding 
print codes into Model 100 test files. 
This letter also points out the errors in 
your editorial response. 

Lorraine Jensen 
Santa Barbara, CA 

Fred, I read your Letter-To-The- 
Editor in the January Portable 100 
Magazine. You have asked a very 
good question, but unfortunately 
there were a few errors in their re- 
sponse. 

NOTE: In the following para- 
graphs CTRL X indicates the two 
keys marked CTRL and x. For 
example, ESC indicates the escape 


| key at the upper left side of the 


keyboard. CTRL-P indicates holding 
the key marked CTRL down while 
simultaneously pressing the key 
marked P 

On page 60 of the big Model 100 
manual, there is a note at the bottom 
regarding using CTRL P to embed 
printer coded in your text. They 
mention using CTRL P CTRL O» to 
get a decimal 15 embedded in your 
text. They neglected to mention that 
you can also use CTRL P ESC to 
embed decimal 27. I have been using 
this technique for years to put printer 
commands inside my Model 100 text 
files while using the TEXT utility. In 
Table one is a list of some of the 
embedded commands I use to talk to 
my Gemini 10X dot matrix printer. 
Your printer will of course have a 





|| Bold 








Printer Cmd 


Keyboard input 


Page Eject <CTRL-P><CTRL-L> 
Elongated <CTRL-P><CTRL-N> 

| Condensed <CTRL-P><CTRL-0> 
Reset <CTRL-P><ESC><@> 
<CTRL-P><ESC><E> 


TEXT display Decimal 





^L 12 
^N 14 
^ 15 
Are 27 64 
STE 27 69 





Table 1. Embebbable printer commands for the Gemini 10X printer 


different set of commands. 
Problems arise when you want to 
print your Model 100 file. You cannot 
get embedded printer codes to be 
processed using the SHIFT-PRINT 
option of the Model 100 TEXT pro- 
gram. You must use the F3 function 
key and when the SAVE TO: message 
appears you key in LPT: to select the 
line printer as output instead of the 
cassette output. This is a character- 
by-character dump to the printer, so 
there will be no wordwrap capabil- 
ity. As the note on page 60 says, “you 





This is a character- 
by-character dump 
to the printer. 





will have to format your text and 
place carriage returns where 
needed” before you do the printout. 
So unfortunately, you cannot have 
TEXT wordwrap capability simulta- 
neously with imbedded printer 
codes. You could write a BASIC pro- 
gram to do this. I did, but the pro- 
gram prints very slowly because it is 
processing a character at a time. 
Another problem comes up with 
the null code (decimal zero, binary: 
00000000). The Model 100 uses 
00000000 to designate special things 
like end-of-file. The CTRL P com- 
mand will not let you embed a null 


| code in the text. Unfortunately, on 


some printers, nullis used quite often 
as a printed code. One trick I used 
was to embed decimal 128 (binary: 
10000000, the telephone symbol) in 


| the text via CTRL P GRPH P. Then I 


flip the dip switch on my printer to 





disable bit 8 (the top bit) and thus 
code 128 is transformed into null. 
This is messy, I do not recommend it. 
Another way is to create character 
strings using BASIC, put them into 
the paste buffer and then paste them 
into the text as needed. 
CAUTION;The printer codes zero 
(binary: 00000000) through nine 
(binary: 00001001) and the ASCII 
characters zero “0” (00110000) | 
through nine “9” (00111001) are used 
differently by the printer. Also, 
watch out for the letters A through Z 


| versus CTRL A through CTRL Z. | 


They are very different also. 

Back to the Portable 100 editor’s 
response: 

1. Line 20 of their program should 
read: 20 PRINT #1,CHR$(27). 

2. Their idea to “Press F2 (load), type 
ESC, and press enter” does not 
work because the TEXT F2 option 
will try to load from cassette, not 
RAM. When you follow their di- 
rections, things just load up. 

3. They did not mention that SHIFT 
PRINT will ignore the embedded 
printer codes and you must use F3 
and specify LPT: to "save" to the | 
line printer while you are inside 
the TEXT program. Also, as I men- 
tioned above, using this technique 
you lose word-wrap capability. 


.. 4. They did not mention the tech- 


nique of using CTRL P to embed 

printer codes. 

5. They forgot to mention the prob- 
lems with embedding the null 
code in the text. 

I hope that the above ideas give 
you some help. I have been experi- 
menting with embedded printer 
commands in Model 100 text for | 
quite some time now. There have also 
been articles and letters in earlier 
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Portable 100 Magazine issues about 

embedded printed codes,. This is 
where I got some of my ideas. 

Lorraine Jensen 

| Santa Barbara, CA 

Thank you for your correct explana- 

| tion on embedding printer control codes. 

Eds 





NEW CLOCK 
Enclosed is the listing for 
CLOCK.BA which was in PORTABLE 
100 some time ago, showing some 
modifications which I have made 
(lines 10-26 and 310-393). 
On January 1st, the message H A P- 
PY NEW YEA R appears, and 
various other messages and remind- 
ers for birthdays. Line 242 puts my 
initials on the clock face (but after a 
couple hours, the hands wipe off the 
initials). The first thing that appears 
on the screen when the program is 
started is a prompt, asking you to 
enter a short message, or ENTER. If 
you doentera message, it will appear 
along with the clock, but if you press 
ENTER (forno message), thena built- 
in message will appear—* HAVE A 
NICE DAY *. I would like someone to 
advise me how I could modify my 
program (after line 26) so that if I wait 
longer than five seconds to begin in- 
putting a message, then the program 
will goto line 164 as if I had pressed 
ENTER (for no message). 
I have several other programs that 
I can interrupt by pressing M. The 
screen will clear, and then the 
CLOCK.BA program will start up. So 
I would like for the clock to start in 
five seconds even if I fail to input a 
message. I know how to do the FOR 
T=1 TO 1650:NEXT but what kind of 
IF...THEN do I use? I think I saw a 
program like this once, where you 
were given five seconds to enter a 
password, or an alarm would sound. 
But I can’t believe I lost the program. 
You sure have a great magazine. I 
don't know what I'd do without it. I 
bought my Portable 100 in Okinawa 
in 1983, and had no prior experience 
with any computer, and have not had 
any training since, but have picked it 








| 10 PRINT:PRINT" 


25 LINEINFUT" 

26 IF LEN(M$) »28THEN1O 
163 CLS 

164 IF M$z""THEN M$-" * 
165 FRINTTAB(10S-(LEN(M$) /2)) : M$ 
170 OM=99 

RD-3.14159265354/180 

240 LINE(0,0)-(62,62) , 1,B 

242 FRINT884, "gb" 


1":M$ 


m 
o 
o 








| 250 FOR OH-OTO11 


260 PSET(31.5429XSIN(OHXSOXRD) , 31. 5-29 KCOS COHXSOXRFD? ) 
PSET(31.S58*3OXSIN(OHXSOXRD) , 21. 5-29 COS (COH SOXRD) ) 


270 NEXT OH 


310 I$-INKEY$ 


M A S'":GOTO 375 


:PRINTCHR$ (27); "q":GOTO 375 


next ":PRINTCHR$(27);"q":6Q0TO 375 





t ":PRINTCHR$(27);"q":GO0TO 375 


"SPRINTCHR$ (27)1"q":GOTO 375 
"sPRINTCHR$ (27) ; "q": 6070375 


375 

375 PRINT@254, DAYS; ", 
| 376 LINE(62,40) -(2:9,40) 
377 LINE(176,40)-(176,61) 
379 LINE(62,62)-(239,62) 


420 TS=TIMES 


480 OM=VAL (MID$(T$,4,2)) 

490 MX-SIN(OMK&XRD) 

500 MYsCOS (OMX&XRD) 

510 OH=VAL (MIDS(T$, 1,20) 

520 HX=SIN((OM/60+0H) XZOXRD) 
530 HYsCOS((0M/60*0H) XSOXRD) 


620 GOTO 380 
630 STOP 





ENTER MSG FITTING BOX 


15 PRINT" ( OR «ENTER? )" 

20 PRINT" 

21 PRINT" D 

22 PRINT" e —— — — ———————— o’ 


HAVE A NICE DAY x" 


245 PRINTG254, "DATE: ":PRINT@271, "TIME: " 


320 IF I$-2"M"OR I$-"m"OR I$-CHR$(27)THEN MENU 
330 IF LEFT$(DATES,5)="12/25"THEN FRINTG171,CHR$(27):;"q";"MERRY CHRIST 


331 IF LEFT$(DATE$,5)2"01/01"THEN PRINTG172.CHR$(27)3"q";"H AP P Y NEW Y 
E A R":GOTO 375 
332 IF LEFTS(DATES,5)="01/15"THEN PRINT817S5,CHR$(27);"p";" MOM's birthday next " 


S33 IF LEFTS (DATES, 5) ="02/08"THEN PRINT@i71,"JIM, DICK, MAVIS next":GOTO 375 
334 IF LEFT$(DATES$,5)-"O2/18"THEN PRINT8175,"SARAH's birthday next":GOTO 375 
335 IF LEFT$(DATES$,5)2"02/02"THEN PRINT@175, CHR$(27)3"p"3" CHARLOTTE’s birthday 


336 IF LEFT$(DATE$,5)2"OZS/0S"THEN PRINT@175, "JENNIFER’s birthday next":GOTO 375 
337 IF LEFT$(DATE$,5)2"04/23"THEN PRINT@I75, "NANCY’s birthday next":GOTO 375 
338 IF LEFT$(DATES$,5)-2"05/19"THEN FRINT@175, "PAUL’s birthday next":GOTO 375 

339 IF LEFTS(DATES,5)="07/08"THEN PRINT@175, "JANET’s birthday next":GOTO 375 

| 340 IF LEFT$(DATE$,5)-2"O7/15"THEN PRINT@175,"CHRIS*® birthday next":GOTO 375 

341 IF LEFTS(DATES$,5)="08/22"THEN PRINTS175, "THERESA’s birthday next":GOTO 375 

| | 342 IF LEFTS (DATES, 5)="09/23"THEN PRINT@175,CHR$(27);"p";" MARCIA?’ s birthday nex 


| $28 IF LEFT$(DATE$,5) 2"10/10"THEN FRINTG175,"GARY's birthday next":GOTO 375 
344 IF LEFT$(DATE$,2)-"10/26"THEN PRINT8175,"BECKY's birthday next":GOTO 375 
345 IF LEFT$(DATES$,5) 2"11/10"THEN PRINTG175,"FAT's birthday next":GOTO 375 

| 346 IF LEFT$(DATES$,5)2"11/14"THEN PRINT8175.CHR$(27):"p";" JOHN's birthday next 


347 IF LEFT$(DATE$,5)2"12/18"THEN PRINT8175,CHR$(27):"p"i" MARY'S birthday next 
| 348 IF LEFT$(DATE$,5) 2"08/10"THEN FRINTG171,"H à F P Y 


"s DATES; " ! "S TIMES 


380 IF VAL (MIDS(TIME¢,4,2))=0M THEN 310 

| 390 IF VAL(MID$S(TIME$,4,2))=00 THEN BEEP: BEEP: BEEP: REEP 
391 IF VAL(MIDS(TIMES$,4,2)) 215 THEN BEEF 

392 IF VAL(MID$(TIMES$,4,2)) 230 THEN BEEF: BEEP 

393 IF VAL(MIDS(TIME$,4,2)) 245 THEN BEEP: BEEP: BEEF 


430 LINE(31,31) (31. 5S€MXx27,21. 5-MY*27) ,0 
440 LINE(G1,21)-(31. S*HXX20, 31. 5-HY*20) ,0 


$70 LINE(31,31)-(21. 54 MX*27, 31. 5-MY27) 
S80 LINE(Z1,31) -(31. S*HX*20, 31. 5S-HY*20) 


BIRTHDAY ":GOTO 








up by self-study. 

Gene Bordenkircher 

Triangle, VA 
A timer delay is fairly simple: 

1010 ZA=0 
1020 ASZINKEYS:IF A$ <> "" THEN 
INPUT “What is your message"; A$: 
GOTO 1040 
1030 IF ZA < 1651 THEN ZA = ZA41: 
GOTO 1020 
1040 REM rest of program 





Listing 2. Turn your Tandy 100/102 into a clock with this handy little program. 





This little routine will check the key- 
board 1,652 times to see if you have 
touched any key. If you haven't touched 
Hie keyboard before it finishes, it will drop 
automatically to the next routine. If you 
do touch any key, it will ask for your 
message, put it in A$, exit the counting 
routine, then continue with the rest of the 
program. 

Eds 
m) 
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Duet in Composition: Yamaha 
and the Tandy 100 


Turn your Tandy into a composer's helper. 


by John Comeau 











l 


or the past eight 

months, I have been 

attempting to inter- 
face my Model 100 to my 
wife's Yamaha PSR-70 elec- 
tronic keyboard, in order to 
develop programs to store, 
edit, and print the music she 
composes. Let me quote R. A. 
Penfold, from his book MIDI 
PROJECTS, to illustrate the 
problems one encounters in 
this endeavor: 

"The MIDI system is essentially 
the same as the RS-232 serial ports 
fitted to many home computers, but 
in points of detail there are problems 
which would make it highly unlikely 
that a serial output from a computer 
could be used to drive a MIDI input. 
The first problem is that MIDI inter- 
faces use standard 5 volt TTL levels, 
and normally have opto-isolator 
inputs to avoid problems 
with earth loops. RS-232C 
ports use signal levels of 
nominally plus and minus 12 
volts (plus and minus 5 volts 
in the case of the RS-423) with 
no form of isolation at the 
inputs. This incompatibility 
could be overcome with suit- 
able signal processing stages, 
but there is a more difficult 
problem with the baud rate. 
31250 baud is not a standard 
rate, and it is not one that can 
be achieved with any home 


i ‘bets eee 


RR 





These programs 
use only six bytes 
to store each note. 

















computer I have encoun- 
tered. It might be possible to 
modify the serial interface to 
operate at the correct baud 
rate, but this would almost 
certainly render it unusable 
for other purposes, and 
would probably notbea very 
good idea." 

As for the voltage differ- 
ence, this problem does not 
apply to the Model 100/102, 
since the RS-232 signal volt- 
age is plus and minus 5 volts. The 
negative pulses are removed from 
the signal by diode D1 (illustration 
one). And the baud rate? As you will 
see, this problem is solved with 3 
bytes OUTed to the appropriate 
ports: a simple solution which took 
months of research to discover. The 
following two programs are only for 
the most basic MIDI I/O, and only 
made to work with a Yamaha 
PSR-70 electronic keyboard. I 
am sure, however, that they | 
can be modified to work with 
any MIDI system. 


WHY BOTHER? 

The PSR-70, as well as 
many other modern elec- 
tronic keyboards, already has 
RAM storage,as well as save/ 
load capability. Why storethe 
MIDI files on the Model 100? 
Well, for one thing, these pro- 
grams use only six bytes to 
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store each note. With about 28K 


available in the computer, that’s a lot | 


of music; much more than the piano 
can hold. Also, with modifications to 
the data and/or programs, the com- 
puter files can be played on other 
electronic instruments (the tapes 
| made directly from the PSR-70 are 
not MIDI format), or be used to con- 
trol volume, tempo, and voice be- 
sides just the pitch. And of course, 
one can add many routines to these 
skeleton programs to print and edit 


the music. I plan to do this myself as | 


a future project. The most difficult 
part is done; all of us can use this 
interface to develop programs of our 
own. 


THE RIGHT BAUD RATE 
We'llstart with MIDIN.BA (listing 
one). The MIDI bit stream consists of 
| one start bit, 8 data bits, and one stop 
| bit. No parity bits are generated. The 
baud rate chosen in line 10 is incor- 
rect, but this will be taken care of in 
the next line: Port 180 is the 8155 
timer register's lower byte. OUTing a 
5 into there causes the clock speed of 
2.4576 MHz to be divided by 5, yield- 
ing 491.52 KHz (the VART chip then 
divides this by 16 to give a baud rate 
of 30720, which is within 2 percent of 
31250). Port 181 is the upper byte of 











the timer register. Setting bit 7 with 
the 64 (40H) puts the output in the 


continuous squarewavemode.Port176 | 
deciphering MIDI data. Line 100: The 
first byte of a MIDI data string repre- | 


is the command register of the 8155. 
Bits 6 and 7 or the 195 (OC3H) are the 
START command, without which the 


baud would remain at 19200,andbits | 


land 2set ports A and Bin the output 
mode (these ports, which control 
keyboard, LCD, and other I/O func- 
tions, must always be in the output 
mode). For further info on this chip 
see Intel’s EMBEDDED CONTROL- 
LER HANDBOOK, pages 11-31 to 11- 
44. 





4 
SIGNAL| 
a OUT 


SIGNAL 
IN 








BACK OF D-SUB PLUG - SOLDERING LUGS | 





Illustration 1. The Model 100/102 RS-232C -to- 
MIDI port connections 


Lines 40-50: the “N” counter is my 
cheap way of timing the notes. It 
works fairly well. 

Line 70: Here we split the timer 
number into two bytes; I could only 
use 7 bits of each because storing and 











retrieving chr$(0)'s in text files is a 
problem. 
lll now give you some help in 


senting a note is 144 plus the MIDI 
channel number. Since there are 16, 
numbered 0 to 15, the largest byte 
representing a note will be chr$(159). 
The reason I had to include this filter 
was a 5 Hz stream of 254's and some 
initial 255's. I may have to modify 
this filter in order to receive other 
types of MIDI commands. The next 


| two bytes are the note value and the 


velocity byte, respectively. The 


PSR70 recognizes 60 note values, | 


from 36 to 96. Now, about the Veloc- 
ity byte. Mr. Penfold’s book explains 
that notes are gated on by a 144+chan- 
nel#, as explained above, and gated 


| off by 127+channel#. The velocity 


byte, then, indicates the level of force 


with which the keys are struck. How- | 
ever, the PSR-70 ALWAYS has the 


144+channel# as the primary byte, 
and the velocity byte is used to gate 
the notes on (64) and off (0). Note that 
Iuse bit7 of the note value byte to in- 
dicate this status. 


RETRIEVING MUSIC 


The output program (listing two) | 


will send the music received by the 





a a i a le | 


18 OPEN"com:98nl1d"FORINPUTASI 
20 0UT188,5:0UT181,64:0UT176,195 


30 ONCOMGOSUB196 


40 COMON:N-0:PRINTG4Q,"Start playing..." 
:PRINT"hit <SPACEBAR> to exit" 

50 N-N*1:PRINTG120,N:IFINKEY$-""GOTO56 
609 CLOSE:COMOFF:OPEN"MUSIC.DO"FOROUTPUTA 


Si 


70 FORJ-QTOI-1:PRINT£1,CHR$ ((N(J)MOD128) 
OR128) ; HRS$(INT(N(J)/128)0R128) ; CHR$(N*( 


J)) ; : NEXT 
80 CLOSE:MENU 


190 N$-INPUT$ (1,1): IFN$cCHR$( 
INPUT$ (1,1) :8S&S(I) ASC(N$)42*A 
,1)) : PRINTG169, NS (I) ; t N(I)sN: 


110 RETURN 





zo 





1 CLS:CLEAR1990:DIMN(1999) , Nx (1000) : 1-0 
| 19 OPEN"music.do"FORINPUTASI 

| 20 IFEOF(1)THENCLOSE:GOTO1G0 

40 N(I)-ASC(INPUT$(1,1))AND127:N(I 
*128* (ASC(INPUT$ (1,1))AND127) :N%(I 
INPUT$(1,1)):I-I*1:GOTO20 

100 OPEN"COM:98N1D"FOROUTPUTAS1:N$=C 
144) :0UT189,5:0UT181,64:0UT176,195 

| 110. FORJ=@TOI-1:PRINT@49,N(J) : FORL-0T 
J) :PRINT@8Ø,L:NEXT:PRINT#1, N$; CHR$(N%( 
AND127);CHR$((N%(J)AND128)/2); 

120 NEXT:CLOSE:MENU 





—— 
"Wow 
pe ed > z 


(1) 
SC ( 
R$ ( 
ON ( 
J) 








Listing 1. The MIDIN.BA program for storing incoming 
signals on the Tandy 100/102 


Listing 2. The MIDOUT.BA program for decipering 
and sending the stored music back to the music keyboard. 
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TO MIDI 


ED 


TOMID! 1 





JACK 


OUT JACK 





TO R9232 C JACK 








GROUND 


SIGNAL. 
2 


4 





FRONT OF DIN PLUG | 





Illustration 2A. The connections between the various hardware pieces. 


program above right back to the pi- 
ano, at the same tempo. 

In line 40 we retrieve the timer 
value from the two ASCII bytes, us- 
ing the.AND operator to get rid of bit 
7 which we set in the input program. 
Likewise, in line 110 we separate the 
velocity byte from the note value 
using similar logic. If you wish to use 
a different channel number just re- 
place the 144 in line 100 with the 
value you choose. 

In order to make the connection 
this is the procedure. First you need 
hardware. You will need a male 25- 
pin D-subminiature connector, two 
5-pin male Din plugs, about 12 feet of 
' small-gauge coaxial cable, and one 
small rectifier diode. Cut the cable in 
half. Solder an end of one of the 
cables, and the cathode (banded end) 
of the diode to pin 2 of the 25-pin 
connector: Solder the other cable to 
pin 3. Twist the grounding shields 
together and solder them both, along 
-with the anode end of the diode, to 
pin 7. Now, the core of each cable 


goes to pin 4of the DIN plugs, and the 


ground shield is soldered to pin 5. 
Look closely at the numbers on the 
plugs; they are notin order. Label the 
DIN plugs whichever way seems 
best to you, keeping the following in 
mind: The cable going to pin 2 of the 





RS-232 plug outputs the MIDI infor- 
mation from the computer, and will 


. therefore be connected to the MIDI 


IN jack of the keyboard. The cable 
going to pin 3 sends data from the 
piano's MIDI OUT jack to the RS-232 
jack on the Model 100-102. 

Well, that's the whole story so far. 
In about three more months I hope to 
have a music-writing program good 
enough to be published...but I would 
rather that someone else beat me to it 
Good luck. 

a 

John Comeau 
2011 NW 55 Ave #109-S 
Lauderhill, FL.33313 
(305) 735-1565 
CompuServe 70641,57 





Illustration 2B. Front of the Yamaha MIDI IN/OUT plugs. 





REFERENCES: 
MIDI PROJECTS, by R.A. Penfold, 
1986 available from Electronic 
Technology Today Inc., P.O. 
Box 240, Massapequa Park, NY 
11762-0240 for $6.95+$1.75 
shipping = $8.70. Order 
#BP182. | 
EMBEDDED CONTROLLER | 
HANDBOOK, 1987, Intel Lit- 
erature Sales, P.O. Box 58130, 
Santa Clara, CA 95052-8130 for 
$18.00+$1.80- shipping+local | 
sales tax. Order #210918. Or call 
toll free (800) 548-4725. 
RADIO SHACK SERVICE MAN- 
UAL: TRS-80 MODEL 100 
PORTABLE. COMPUTER, 
CATALOG NUMBERS 26- 
3801/3802, obtainable (maybe) 
from Radio Shack. I had to wait 
three months for mine, and that 
was a year ago. 











ITEM 


1. 25-pin male D-sub connector 
2. (2x) 5-pin DIN plug 

3. 12 ft. shielded cable (40-ft roll) 
4. Switching or rect. diode, 





RADIO PRICE 
SHACK 

276-1547 1.99 

274-00 (41.59) 3.18 

278-751 6.19 

276-1101 49 /pkg of 2 








Parts list for the Duet connector. 
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Make your 
Model 100, 102, or 200 
practically perfect 


PCSG has long been the champion of 
the Model 100 and 200 laptop 
portable computers. No longer toys, 
these machines can be made to rival 
the performance of many desktop 
models. 

PCSG in the past three years has 
developed software programs and 
innovations that have rewritten all 
standards. 

We can give you what we regard 
as the superior Model 100 or 200 
system. This is a catalog of what you 
need to build that nearly perfect 
portable computer. Full brochures 
and the answers to any of your 
questions are just a quick phone call 
away. So, if you want to add 
dimensions of portable performance 
to your laptop unit, call in your order 
today. 

PCSG sells every product on a 
30-day full refund trial so there’s no 
risk. 


Snap-in ROMS 





Super ROM 





Get Lucid Spreadsheet, Write ROM, 
Lucid Database and Thought Outliner 
all on one ROM. Completely 
integrated so they all work together 
with the familiar Cut and Paste 
working between all applications. 
Guaranteed to be the finest four 
programs available for the Model 
100, 102 or 200 on one ROM 
$199.95, plus shipping. 





Write ROM 


This is full word processing capability 
like on a desktop. Not only format 
documents with left and right hand 








margins, page numbers, headers, 
footers but phenomenally more. Write 
ROM gives you memory writing 
performance: 44 features and 
functions that really bring text 
processing power to the Model 100, 
102. $99.95, plus shipping. 





Lucid ROM 





Features like LOTUS 193. But not just 
a spreadsheet, a program generator 
as well. Features like Cut and Paste, 
variable column widths and lightning 
fast calculation speed. Lucid changes 
your computer into capacity you 
never thought possible in the Model 
100, 109, $99.95, plus shipping 





Disk -- ROM 


Now your Model 100, 109, 900 plus 
any desk top computer is an instant 
disk system. With a function key 
transfer any files or BASIC or machine 
code programs to and from your 
portable and the other computer. The 
IBM version works over the phone 
$149.95, plus shipping. Cable $40.00. 











Business Analyst ROM 


Perform those strategic "what if” 


PORTABLE GONMBUTER SURORT ORQUP 


business problems. Allows detailed 
financial analyses like Breakeven, IRR, 
NPV, return on investment, interests 
costs, PV and others at the touch of a 
function key. Prints detailed reports. 
So easy! Also it performs simple 
everyday calculator functions. Check 
it out! $99.95, plus shipping. Model 
100, 109. 


HARDWARE 
6-ROM Bank 








Access Super ROM, Disk +, Business 
Analyst and others. The 6-ROM Bank 
with its 30 hour rechargeable battery 
pack lets you personally create your 
ultimate Model 100, 109 system. 
$199.00, plus shipping. 


OTHERS 





Custom ROMs 


Have your own BASIC program put 
on to a ROM, or combine your 
program with a PCSG program 
$500.00 minimum order — quantity 
pricing as low as $15.00 per ROM. 
Model 100, 109, or 900 





Cassette Programs 


PCSG also has cassette programs 
availaole at closeout prices. Choose 
from Tutor + (typing tutor — $94.98), 
Type + (makes your M-100 a memory 
typewriter — $34.98), Tenky 4- 
(financial calculator — $99.98), 
Data + (file manager — $29.98), 
Sort? + (sorting routine — $14.98), 
Write + (word processor — NEC 
only — $34.98). 

Shipping: $7.50 (U.S.) two days; 
$15.00 (U.S.) next day 





11035 Harry Hines, Blvd., Suite 906, Dallas, TX 75999. 1-914-351-0564. 


Circle 78 on Reader Service card. 
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The Big Picture: SHELL.BA 


Make it easier to write custom programs by using this BASIC “shell” 





by M. Aiello 











hen I first saw the Model 
W 102 at Radio Shack I was 

intrigued, but convinced 
that anything that small had to be a 
| toy. Real microcomputers ran MS- 
DOS and were the size of suitcases or 
better, and what good was a machine 
that could only handle forty charac- 
ters of text per line anyway? I resisted 
for quite some time, but finally the co- 
incidence of a graduate school term 
paper, and a spring vacation at a 
beach resort gave me the excuse I 
needed, and I took the plunge. 

Since that time, about a year ago, I 
have been amazed at the versatility, 
and general usefulness of the 102. It 
has gradually become my favorite 
computer, and for my personal needs 
and business records it gets used in 
favor over a Compaq Portable III. It 
has grown a few appendages as well, 
such as rom software, a disk drive, a 
memory expansion device, and at 
least a dozen critical cables. It serves 
me as a word processor, secretary, 
| information manager, and portable 
terminal. What began as an infatu- 
ation has become a serious commit- 
ment. 

The first expansion of my 102's 
capabilities was the investment in 
one of the popular multi-program 
roms that contain a word processing 
program, an outliner, and some data- 








base capability. This acquisition was 
a major step forward over the native 
capabilities of the machine, and hap- 
pened early on. 

It is only by programming that 
your special applications can be ac- 
commodated on the 102. Combined 
with the portability of the machine, 
and the excellent control of the 
machine's capabilities BASIC gives, a 





The solution took 
the form of a 
template program 





custom application is a powerful 
tool, well suited to use in the field. All 
of this makes the effort of program- 
ming well worth it. 

There were a few principal diffi- 
culties I encountered in program- 
ming in BASIC on the 102. The most 
significant was the difficulty in visu- 
alizing the overall organization of a 
program viewing only a small seg- 
ment at a time on the small screen. 
Another problem was dealing with 
line numbersina BASIC that does not 
contain a built in renumbering fea- 
ture, and where stand-alone renum- 





bering programs require cumber- 
some translations from .BA to .DO 
files, and take forever to run. Finally, 
as I wrote more application pro- 
grams, I found myself re-writing 
simple functions, like screens and 
input routines over and over, with 
very little variation from program to 
program. 

The solution to these problems 
took the form of a template program 
in BASIC, which in itself did nothing 
at all! It did provide a framework 
upon which any application pro- 
gram could be hung, and eliminated , 
alotofrepetitious coding. Consisting 
of simple subroutines that per- 
formed the housekeeping for any ap- 
plication program, all located at stan- 
dardized line number locations, the 
template program allowed me to 
concentrate my efforts on the appli- 
cation itself. 

By allocating blocks of line num- 
bers to various tasks within the pro- 
gram, the template made managing 
line numbersa little easier. Each serv- 
ice the template provides to the ap- 
plication is always invoked by a 
GOSUB to the same particular line 
number; this simplifies coding a 
great deal. The template program 
provides a standard organization for 
application programs, and a consis- 
tent user interface as well. By using 
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Ø 'SHELL.BA 16/23/87 

|1 Copyright 1987, Mike Aiello 

2 "General purpose application shell 

19 '----------- declarations------------ 
15 DEFINT A-Z 

20 DIM PL,II,KX,KP,KV,KN(8),KS(8) 
EX, EV£Z, ED 

25 DIM BK$,RV$,NR$,FN$,KY$(8) ,SS$,EV$ 
50 '----------- initializations --------- 
55 PL=17@0:BK$=" 


,KA(8), 


:RV$=CHR$ (27) +" 
R$ (27)+"q": ENS=* -none-" 
100 ‘program initialization 
105 GOSUB 29000 ‘disp init scrn 
119 CLS:GOSUB 9000 ‘disp stat scrn 
150 'init fn keys 
155 SCREEN 60,0 


p":NR$=CH 


160 CALL 23161 'clr fn keys 

165 KEY OFF 

176 DATA LI Eds n " JM. are 
" " " n "n n" Exi i t u 


175 FOR II-1T08:READ KYS(II) 
9109: GOSUB 9309:NEXT II 

200 '------- branch to control 
205 GOTO 320909 

210 '---application routines 210-999--- 
999 !'------- main fn key routines------- 


:KX-II:GOSUB 


loop----- 


1000 KX=1:GOSUB 9500:GOSUB 9890 
1020 'KV-0:GOSUB 9600 ' all keys n/a 
1030 'KX=?:GOSUB 9199:GOSUB 9300 'key on 


1109 '----application code goes here--- 


1105 'repeat 1009-1999 as 26000-2999 for 
P2. 
d '3000-3999 for F3 etc. Change KX-2 
or 
1120 'F2, KX=3 for F3 etc. 
1899 '----application code ends here--- 
199% GOSUB 9900 
1910 'KV=-1:GOSUB 9600 ‘all keys av 
1920 KX=1:GOSUB 9500:GOSUB 9709 
1990 EX=-1:RETURN 
20909 T RETURN 
3000 EX=-1:RETURN 
4000 EX--1: RETURN 
5000 EX--1:RETURN 
6000 EX=-1:RETURN 
7000 EX=-1:RETURN 
7999 '--normal exit: unset loop flag--- 
8000 EX- Q :RETURN 
8998 '-------- utility subroutines------ 
8999 'status display 
9000 PRINTGO,BK$;BK$;BKS$;BK$;BK$;BK$;BKS 
9090 EX=-1:RETURN 
9099 'set fn key avail 
9100 KN(KX)=-1:RETURN 
9199 'set fn key not available 
9200 KN(KX)20:KS(KX) *0:KA(KX) -0ü:KEY (KX) 
OFF:KP-280* (KX-1) *5:PRINTGKP, " "TARE 
TURN 
| 9299 'set available key on 
9300 IF KN(KX) AND (NOT KA(KX)) THEN KS( 


KX) =-1:KA(KX) =0:KP=280+(KX-1)*5: 
P, KY$(KX);:KEY KX,"":KEY (KX) ON 


PRINTGK 


continued 








the template approach, all of your application programs 
will have a similar feel for input and function key use. 

The template program that evolved for me is called 
SHELL.BA. It consists of routines that provide an initial 
program screen, a program status screen, function key 
support, a file name prompter, and a numeric input rou- 
tine. It also provides the framework of my favorite pro- 
gram organization. 

One of the features I like best about the 102's BASIC is 
the ease of using function key interrupts. Its a simple 
matter to set up applications as series of function key 
menus, using a wait loop with the ON KEY GOSUB 
command to jump to selected functions. Since this struc- 
ture is comfortable for me, SHELL is built around it. 

SHELL's most interesting component is the set of rou- 
tines that implement function key menus the way | like to 
use them. Before getting into the routines themselves, it's 
helpful to understand the idea behind the way the func- 
tion key menus work. 

In any menu, each function key is either available, or 
not available. A key that is not available has a blank 
prompt on the bottom of the screen, and has no effect 
when pressed. Keys available in the menu are either on, 
off, or active. 

A key thatis onis ready to perform some function when 
pressed; it displays a prompt at the bottom of the screen. 
Whena key is pressed, it becomes active: its prompt is dis- 
played in reverse video, and repeated pressing of the key 
has no effect until the key's function is complete. When the 
function is completed, the key returns to the on condition. 

Generally, when one key of a menu is active, the other 
keys must be temporarily disabled; these keys are set off. 
Their prompts are obscured with pound signs (#’s) until 


| the current function is complete, and the menu is reset. It 


is possible to construct menus where some keys remain on 
whilea key is active, as the key routines are constructed to 
allow this. 

Taking a look at SHELL, you'll notice the DIM state- 
ments at lines 20 and 25 include all the variables in the 
program, even those without subscripts. Declaring all 
variables at the beginning speeds up program execution. 
Variables used by application code would be added in 
DIM statements here. The initialization section sets values 
used later: a forty character blank string, escape sequences 
to enter and leave reverse video mode, and the default file 
name string, -none-. 

Programs based on SHELL begin with a GOSUB at line 


| 105 to the initial display screen, a subroutine located at 


lines 29000-29099. This routine performs a screen clear, 
then puts up whatever introductory message is desired, 
followed by a wait loop that keeps the screen visible for 
just a moment. 

After the introductory screen, the program status 
screen is displayed for the first time by a GOSUB at line 
110. The status screen routine is located at lines 9000- 9099. 
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| This screen can contain any information about the appli- 


cation; it is redisplayed at least once with each execution 
of a function key and is the main source of information to 
the application program's user. 

The next group of lines, 150-175, establish control of the 


function key menus. The SCREEN 0,0 turns off the display . 
| of the label line, so SHELL can control it directly. The CALL 


to the ROM program at address 23161 clears the default 


| settings of the function keys. The DATA statement at line 


170 contains eight 4-byte strings, which are the key 
prompts for the main function key menu. Notice that the 
eighth prompt is EXIT; function key eight is reserved in 
SHELL as the normal exit to the system menu. 


The FOR-NEXT loop at line 175 reads the key prompts 


| into the key prompt array, KY$(), makes each key avail- 











able with a GOSUB to the subroutine at 9100-9199, and 
turns each key on with a GOSUB to the routine at 9300- 
9399. When this loop is complete, menu handling is set up, 
and the application can begin. 


The GOTO 32000 at line 205 transfers control to the wait | 


loop for the main function key menu. This loop is placed 
at the bottom of the program for reasons of speed: placing 
subroutines nearer to the beginning of the programs 
causes them to execute faster. The main menu loop flag, 
the variable EX, is set to -1 (true) at line 32000. As long as 
it remains true, the program will loop on line 32200, 
waiting for a function key to be pressed. The mechanism 
used to take a normal exit from the program is simple: 
pressing function key eight sets EX to 0 (false), and the 
program falls out of the main menu loop, and into the 
normal exit sequence that follows at lines 32255-32300. 
The lines from 1000-1999 represent the standard main 
menu function key block. One of these blocks must be 
replicated for each function key that is used in the main 


menu. The block gets renumbered for each function key; | 


the code for function key two is located at lines 2000-2999, 
function key three at 3000-3999, and so on. 

Each function key block consists of a prologue, applica- 
tion code, and an epilog. The prologue and epilog portions 
take care of handling the function key housekeeping, with 
whatever application code desired sandwiched between 


them. The prologue portion begins with the setting of the | 
| key pointer variable KX to the current function key num- 
| ber. In the 1000-1999 block, KX = 1. The GOSUB 9500 
| makes key one active, and the GOSUB 9800 turns all other 


keys off. You'll notice at lines 1020 and 1030 two com- 
mented-out statements. These lines are used only if an- 
other key is to be on while the current key is active. Un- 


| commenting 1020 makes all other keys unavailable, and 
uncommenting line 1030 and substituting the key number | 
| needed for the question mark makes that other key avail- 


able and on. Line 1030 could be repeated with other values 
of KX if more than one additional key was to remain 
accessible. 

Lines 1100-1899 are comments that mark where the 














9310 RETURN 

9399 'set available key off 

9400 IF KN(KX) AND KS(KX) AND (NOT KA(KX 
)) THEN KS(KX)=@:KP=280+(KX-1)*5: PRINT@ 
KP, “####"; sKEY (KX) OFF 

9410 RETURN 

9499 ‘toggle key active 

9500 IF NOT KN(KX) THEN RETURN 

9520 KP-280*(KX-1)*5 

9530 IF NOT KA(KX) THEN KA(KX)=-1:PRINT@ 
KP, RV$+KY$(KX)+NR$;:KEY (KX) OFF:RETURN 
ELSE KA(KX) *0:PRINTGKP,KYS$(KX) ; S KEY (KX 
) ON:RETURN 

9599 'set all keys availability 

9600 FOR KX=1T08 

9620 IF KV THEN GOSUB 9100 ELSE IF NOT K 

M THEN GOSUB 92900 

9630 NEXT KX:RETURN 


9699 'set all keys on 

9700 FOR KX=1T08 

9710 GOSUB 9300:NEXT KX:RETURN 

9799 'set all keys off 

9800 FOR KX=1T08 

9810 GOSUB 9400:NEXT KX:RETURN 

9999 'filename acquire 

109009 SS$=INKEY$:IF SS$<>"" THEN 100900 
10005 PRINT@PL,"File? ";:FN$-"" 

10010 SS$-INKEY$:IF SS$-"" THEN 16016 


10020 IF SS$=CHR$(8) AND LEN(FNS)»0 THEN 
PRINT CHR$(127); 


:FN$=LEFT$(FN$,LEN(FNS) 
-1):GOTO 10010 


19030 IF SS$=CHR$(13) THEN IF LEN(FNS)»6 
THEN RETURN ELSE BEEP:GOTO 16616 

i mn IF LEN(FN$) = 6 THEN BEEP:GOTO 166 
1 


10050 IF (SS$ >= "a" AND SS$ <= "z 
N SS$-CHR$(ASC(SS$)-(ASC("a")-ASC(" 
10960 IF (SS$ >= "A" AND SSS <= "Z" 
N FN$=FN$+SS:PRINT SS$;:GOTO 16910 
10070 IF (LEN(FN$) > Ø AND (SS$ >= "Ø" A 
ND SS$ <= "9")) THEN FN$=FN$+SS$:PRINT S 
S$;:GOTO 10919 

1090890 BEEP: GOTO 10010 

10099 'get numeric input 

10100 SS$=INKEY$: IFSS$<>"" THEN 19109 


" 


) THE 
A"))) 
) THE 


10105 PRINT@4Q, BK$;BK$;BK$;BK$;BK$;:PRIN 
TOPL, "Value ====> "s:EV$=""sED=@ 
10110 SS$=INKEY$:IF SS$-"" THEN 10110 


19120 IF SS$=CHR$(8) AND LEN(EV$)>@ THEN 
PRINT CHR$(127) ; :EV$-LEFTS(EVS,LEN(EV$) 
-1):GOTO 10116 

10130 IF SS$=CHR$(13) THEN 16189 
18140 IF (SS$>="6" AND SS$<="9") 

$=EV$+SS$:PRINT SS$;:GOTO 10116 
19150 IF LEN(EV$)=@ AND (SS$="-" OR SS$- 

$1 THEN :EV$=EV$+SS$:PRINT SS$;:GOTO 1 
11 

18160 IF SS$-"." AND NOT ED THEN ED=-1:E 

V$=EV$+SS$:PRINT SS$;:GOTO 10110 

10170 BEEP:GOTO 191169 

10189 EV£-VAL(EV$) : RETURN 

28999 'initial program screen 

29000 CLS:SCREEN 0,0 

29010 PRINTG122,"* * SHELL.DO - Program 

Template * *" 


THEN EV 


continued 
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r — 1 
lo" > n " 
] 'Copyright 1987, Mike Aiello 
29030 FORII=1T0890:NEXT II:RETURN - die Le tonevdai arn cs cibi MM 
31997 ' 30 DIM CT$,CL,HT$, AL, WT$, LL, TF, AF, CN£,CH 
dee Ce mer main menu loop--------- |#,CM#,CS#,HV#_HN#.HH#, HME, HS4, V VE, WN#Æ MH 
# WMA WS# 
32000 EX = -1 60 PP=45:CT$=TIME$:CL=PP+18:HT$=FN$:AL=P 
32100 ON KEY GOSUB 1000, 2000, 3000, 400 ofc uot puri AE pia pae 
Ø, 5000, 6000, 7090, 8000 iu MES MT 
2 IF EX. THEN 322060 'wait for fn key 170 DATA "Set " "Hour", "Strt","Clr WB 
> ' it" 
ao SETS 175 FOR II-4TO8:READ KY$(II):KX-I1:GOSUB 
E E 9100:GOSUB 9300:NEXT II 
32260. CALL 23164,0,23366 'reset fn keys eae RUMERNENS TR ESSA 
32508 KevcoeriAs 're-init BASIC fm Keys — ||225 TE CT$<>TIMESTHENGOSUB260 :G05UB28g «P 
erri CCOSA chat RINTGCL, CT$:PRINT@CL+8O,,WTS  RETURN:ELSER 
32300 MENU End of listing one. | | 939° ON ERROR GOTO 235:GOSUB1ØLØØ:HV#=EV# 





L- — - J 





:HH#=INT(HV#):HM#=INT((HV#-HH#)*1ØØ):HS# 


TOE. s ; : =INT HV#-HH#) *160-HM#) *100):HN#=HS#+(H 
application code would go. The epilog begins at line 1900 Neeser PER eoi mie Ma ael Sa 


with a GOSUB 9000, invoking the status screen display. | URN 
The assumption is that any application.code executed 235 BEEP:RESUME236 
would cause a change in the program status. Line 1910 is | 259 ONERROR G0T0255:GOSUB10100 :WV&-EVA:W 
a commented-out line that is used only if any other keys | H#=INT(WV#) :WM#= INT ( (WV -WHÁ) *109) eem 
were turned on in lines 1020-1030; this line makes all keys AVES PE ML m EM ese uL on 
available again. N 

The GOSUB 9500 returns the current key from active 255 BEEP:RESUME256 
status; note that this subroutine toggles active status,and | 268 CT$=TIME$:CH#=INT(VAL(LEFT$(CT$,2))) 
this is the same call as in the prologue. The GOSUB 9700 | :CM&- INT(VAL(MIDS(CT$,4,2)) ) :CS£-INT( er | 


turns all keys on again, restoring the main menu to its lh aa 12) ) Pe CN#=CS#H(CHE*EB+ CMF) 


original condition. The prologue ends with the setting of | 279 HN#=CN#+WN#:HH#=INT(HN#/3600) :HM#=IN 
EX to -1, to insure that the main menu loop is not exited.. | T((HN£-HH£*3609)/60) :HS#=HN#-HH#*3600-HM 
This is done because EX could also be used to controla | #*60:GOSUB275:RETURN m 
loop for main menu keys that set up their own sub-menus. Te PUL ee al Hody P aa 
The remainder of SHELL.BA consists of the utility | py : tm EXRE 
subroutines. Lines 9000-9090 are the stub of the status. | 289 WN£-HN£-CNZ:WHEZ-INT(WN4/3600) :WM#=IN 
display screen routine. To avoid the. necessity of con- | T((WN£-WH2*3600) /60) :WS#=WN#-WH#*3600-WM 
stantly re-painting. the bottom line of function key Maiori o NE 3155 prs RHTE TS 
prompts, this routine executes a screen clear by printing z ics , : i 
seven lines of forty blanks, rather than executing a CLS. I (WM) ,2) *"  sRIGHTS (STRS (WS4) ,2) :RETU 
The function key support routines occupy the lines | 39g AF-Q:IFHNA-QTHENRETURN 
from 9100-9899. They make use of three flag arrays: KN(8) | 316 GOSUB. 220: BEEP:FORII-1TO500:NEXTII:S 
which is true if a key is available, KS(8) which is trueifa | S$-INKEYS:IFSS$-""GOTO3UUELSERETURN 
key is on, and KA(8) which is true if a key is active. All of P AF=Ø:HN#=Ø:WN#=Ø:WT$=FN$:HT$=FN$:RET 
these flags are set to either -1 (true) or 0 (false) values, and A000 KX=4:GOSUB 9500:GOSUB 9800 
are used directly in boolean expressions as the conditions | 4100 IFTFTHENGOSUB230ELSEGOSUB250 
of IF statements. I had done some experimentation to | 4990 GOSUB 90900 
determine that this approach executed faster than rela- E cabin e :GOSUB 9700 
kir cr aane À 5000 KX=5:GOSUB 9500:GOSUB 9899 
e function key routines manage the label line ofthe | 519g TF-NOTTF: IFTFTHENKY$(5)="Hour"ELSEK 
display, turn the key interrupts on and offas needed,and | y$(5)="Wait" 
set the key status arrays to reflect the current conditionof | 5110 GOSUB 350 
The two remaining routines are prompters, routines that Pha ae USER 9700 
perform a particular edited keyboard input. The lines | ¢ > 


| 6000 KX=6:GOSUB : 
10000-10099 comprise a file name prompter: The routine | 3588 =G0SUB ‘9808 


cc 








continued 
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will only accept a correctly formed filename, beeping at 
any key that is inappropriate in a filename. The input 
filename is returned in variable FN$ to the calling routine. 
Similarly, lines 10100-10199 are a numeric value 
prompter. The numeric value is returned to the calling 
routine in EV#. 

There are three areas in SHELL.BA where application 
code can be inserted. The group of lines from 210-999 is 
reserved for application subroutines. The position of this 
group of lines near the beginning of the program makes it 
ideal for frequently called application routines. Applica- 
tion code is added to each of the key routines, at lines 1000- 
1999, 2000-2999, etc. Finally, code can be added between 
lines 10199-31999, if you need the room. 

The best way to understand how SHELL works is to 
look at an example: TIMMRG.BA. TIMMRG is a merge file 
that contains the required code to turn SHELL into an 
alarm clock program called TIMER.BA. TIMER functions 
as either a time of day alarm, or a countdown timer. 

TIMMRG contains declarations and initial values of the 
variables used by the timer in lines 30 and 60. Line 65 sets 
POWER CONT so the 102 doesn’t power down timing pe- 
riods longer than ten minutes. The normal default of ten 
minutes is set on exit at line 32280. Lines 170 and 175 set up 
the main function key menu with keys four to eight. 

The bulk of the application code making up resides 


| between lines 210 and 999. Subroutines at 220 and 225 


update the time displays onscreen. The routine at 230 gets 
the time to sound the alarm, using the numeric prompter 
at 10100. A similar routine at 250 prompts the user for the 


| hours, minutes, and seconds for the countdown timer. The 


subroutines at 260, 270, and 280 perform the time calcula- 
tions and set up the alarm and countdown time strings for 


| display. Line 300 marks the alarm sounding routine, 


which beeps in a loop until any key is pressed. Finally, at 
line 350 is a simple clear function, that resets a pending 
alarm. 

There is one main function key routine for each key in 
the main menu, at lines 4000-4999, 5000-5999, 6000-6999, 
and 7000-7999, Key four invokes the alarm setting func- 


| tion, allowing the user to enter the time of day, or count- 


down time desired. Key five toggles TIMER between 
alarm and countdown mode. The prompt for this key is 


| modified at line 5100 to reflect the current mode. The 


routine for key six, the "Start" key, shows an example of 
enabling another key while active. In this case, the Clear 
function, key seven, is enabled at lines 6020 and 6030 to 
allow canceling the timer at any time. 

The status display screen is formed from lines 9010- 
9050, and the introductory screen is printed at lines 29010- 
29020. One unusual patch included in TIMMRG are the 
linesat9600,9700, and 9800, which modify some of the key 
routine loops to run from 4 to 8, rather than from 1 to 8. 
This change was made because TIMER only uses the 


| upper five function keys. 





(6020 KV-0:GOSUB 9600 ' all keys n/a 
(6030 KX-7:GOSUB 9100:GO0SUB 9300 'key on 
6100 AF--1:IFTFTHENGOSUB280ELSEGOSUB276 
6195 IFHN£-ÜTHEN6210 

6110 GOSUB 90600 

6120 IF NOT AF THEN GOTO 6216 

6130 GOSUB 225 

6140 IF CN# >= HN# THEN GOSUB 366 

6150 GOTO 6126 

6210 GOSUB 356 

6900 GOSUB 9099 

6910 KV=-1:GOSUB 9600 ‘all keys av 

6920 KX=6:GOSUB 9500:GOSUB 9700 

6990 EX=-1:RETURN 

7600 KX=7:GOSUB 9500:GOSUB 9800 

7100 GOSUB 356 

7900 GOSUB 90900 

7920 KX=7:GOSUB 956@:GOSUB 9700 

7990 EX=-1:RETURN 

9010 PRINTGPP, "Current time ===> "::P 
RINTGCL,CT$; 

9020 PRINTGPP«40," Alarm time ===> ";:P 


RINTGAL,HT$; 

9930 PRINTGPP-«89," 
| RINTGLL,WT$; 

9040 PRINTGPP-«166," 
| MMSS"; 

9050 PRINTGPP«200," Press any key to sto 
p alarm"; 

| 960% FOR KX=4T08 

| 9700 FOR KX=4T08 

9800 FOR KX=4T08 

29010 PRINTG122,"* * TIMER - A Simple Al 
arm Clock * =" 

ree PRINTG205," Copyright 1987 M. Aiel 
o" 

32200 GOSUB 220:IF EX THEN GOTO 32206 
ait for fn key 
32280 POWER 1609 


Time left ===> ";:P 


Enter times as HH. 


'w 








End of listing two. 





For those readers who are CompuServe users, 
SHELL.BA, TIMMRG.BA, and the completed TIMER.BA 
are available through the Model 100 Special Interest 
Group. Just type GO M100SIG at any CompuServe 
prompt to enter the forum. Within the forum, give the | 
command DL 4 to get to the Applications Data DL 4 
Library. Giving the command BRO /KEY APPLICATION 
will then step you through the downloading menu for the 
files mentioned in this article. Also available on Compu- 
Serve is one other sample program based on SHELL.BA 
called FINCAL.BA, not reprinted here because of space 
limitations. FINCAL is a financial calculator based on the 
HP-12C handheld calculator. 

SHELL.BA, has proven to be a very useful program- 
ming tool for me, allowing me to quickly assemble appli- 
cation programs that havea polished appearance to them. | 
Of course, SHELL represents my programming prefer- 
ences and style. You can readily adapt the technique to | 
your own needs, by surveying your programs, and ex- 
tracting your best techniques to make up your own BASIC 
template. m) 
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Traveling Software. A Powerful 


Add 2 Megabytes of Memory to Your 
1007102 


Just snap the BOOSTER PAK onto the bot- 
tom of your Tandy 100/102 and plug in two 
cables. That's all it takes. And you can add 
upto 2 itin e of RAM or ROM ora 
combination of both to your Tandy 100/102. 
And since BOOSTER PAK is an open sys- 
tem, you can customize it as you go. Add 
more RAM or ROM software as you need it. 
BOOSTER PAK comes with: 136K of RAM 
memory, 64K of ROM software, 16 socketed 
Slots for 32K RAM and/or ROM chips and 
X-TEL Communication Software. It also has 
provisions for a battery pak, built-in modem 
and TS-DOS disk software built-in. It even 
includes a fast action Asteroids game! 


BOOSTER PAK. io $429.00 





















Five Programs On One oy et 
Five applications for the Tand 
100/102/200, and the NEC PC-8201/8300 
that occupy only one file on your computer. 
Programs included are: T-Word—a laptop 
Word Processor with disk drive support; 
ROM-View 80—an 80-column display that 
lets you view 60 characters and includes 
scrolling; T-Base—lets you create true Rela- 
tional Databases; IDEA!—a flexible organ- 
izer with an outline format; and Portable 
Disk Drive Support—so you don't have to 
store TS-DOS in your computer. 
THE ULTIMATE ROM II . . .. WAS 322985. 
NOW ONLY $199.00* 
NOTE: Tandy 200 version includes TS-DOS 
instead of ROM-View 80. 








Add Up to 256K of ROM Software 8-ROM EXPANSION PAK 
to Your rop. w/SARDINEPLUS ............ $299.00 

The 8-ROM EXPANSION PAK gives 8-ROM EXPANSION PAK 
w/TS-DOSinaROMchip....... $169.95 


n 8 ROM sockets to plug-in your favorite 
OM software. This slim-designed ROM 
pack measures only 1" thick and 242” wide. 
Attaches opes the Tandy 100/ 
102/200 or NEC PC-8201/8300. Only one 
connection is required to the existing ROM 
Socket. Buy the 8-ROM EXPANSION PAK 
with either a four-chip set of SARDINE or 
Traveling Software's TS-DOS. 

What is really amazing is that switching 
from one ROM software chip to another is 
done all by software—absolutely no 
mechanical switches! 

BONUS! With each 8-ROM EXPANSION PAK 
w/SARDINE PLUS purchase, get TS-DOS in 
a ROM FREE. 


NOTE: If you already own a SARDINE ROM, 
you can upgrade it for an 8-ROM PAK for 
just $129.00. The SARDINE disk version 
can be upgraded for just $198.00. Call 
(800) 34 for details. 





'onnection For Your Tandy 100 





Your Laptop Dictionary & Spelling Checker. 
Sardine is able to look up a single word 
in seconds. Or check a 25K document in 
less than three minutes, It also lets you cre- 
ate your own auxiliary dictionary of terms, 
words, names and abbreviations. Compati- 
ble with the Tandy 100/102/200 and NEC 
PC-8201/8300 Xs computers. Requires 


16K RAM and a VR Sg Computing 
disk drive. ROM version also includes 
T-Word Word Processing and text formatting. 


SARDINE Disk |. 2 o. $99.95 
SARDINE ROM _...... WASHES 
Now ONLY $119.95* 


LI] 





TS-DOS—The Traveling Software 
Disk Operating System 

TS-DOS is the complete operating 
system for Tandy and Purple AU 


portable 3/4" disk drives. With TS-DOS you 
can list files both on disk and in RAM, save 
to disks, load into RAM, kill and rename 
files. Simply by pressing a function key. 
With its unique Ed feature you can load, 
save or kill several tiles at once. BASIC 
programming and disk access included. 
TS-RANDOM - Your Rapid Access to 


Many Laptop Files. 
For the Tandy or Purple Computing 
100K disk drives. TS- OM retrieves 


information faster than sequential access 
methods. Supports up to eight files for 
simultaneous input and output. Even 
includes specia! utilities for quick copying 
files and recovering erased or damaged 
disk files. Basic programming and disk 


access are also included. 

TS-DOS Disk (all drives) ........ $69.95 
TS-DOS ROM (all drives) ........ $99.95 
TS-RANDOM Disk (TDD #1 only) .. $89.95 
TS-RANDOMROM ....... AS 3119-88- 


(TDD #1 only) NOW ONLY $119.95* 


Connects Your Mac to Your Lapto 
or Tandy/Purple Computing Portable 
Disk Drive. 

MAC-DOS II gets your Mac and laptop 
“talking” by the connection of our three-con- 
nector cable. It lets you read, edit and print 
files created with your laptop as easily as 


Connects Your IBM Compatible Desktop 
to a Tandy 100/102/200, NEC PC-8201/8300 
or Tand le Computing Disk Drive. 
LAP-DOS I lets your IBM or compatible 
"talk" directly to your laptop by the con- 
nection of cur specially designed three- 
connector cable. Links Tandy and NEC 
with all IBM or compatibles including PC, 
XT, AT and the new PS/2 series. Transfers 
files at speeds ne 19,200 baud instantly. 


Also includes a Tandy disk drive adapter 
for optional direct disk access, 
LAP-DOSII with cable ......... $129.95 





regular Macintosh files. Transfers files 
between your Tandy M100/102/200 or NEC 
PC-8201/8300 laptop and an version of the 
Macintosh at speeds up to 19,200 baud 
instantly. Also includes a Tandy disk drive 
adapter for optional direct disk access. 


MAC-DOS II with cable ........ $129.95 











Power Your Disk Drive or Laptop. 
Powercell is the lightweight and conven- 
ient way to power your disk drive or laptop 
simultaneously. A performance far superior 
to "quick drop" Ni-cad batteries (up to 40 
hours of power!). For use with portable disk 
drives and laptop computers. Includin 
Tandy 100/102/200 and NEC PC-8201/8300, 


POWERCELL. 0. $79.95 


We Convert Your Program 
Into a Plug-in Rom Chip. 

Now you can Ier own programs 
burned onto an EPROM so they will work 
just like the built-in ROM software already 
in your TANDY 100/102/200 or NEC 
8201/8300. It's the ideal way to free-up your 
RAM memory for data storage and also 
make your Bt es copy protected. Our 
patented Flexible Circuit Board allows you 
to change your programs and to have your 
EPROM re-burned at substantially lower 
prices. Overnight service ensures that we 
can meet your schedule. Our service is 
guaranteéd or your money back. Quantity 
pricing as low as $41.00 each, No minimum 
qandy Call for your free ROM informa- 
tion kit. 


R Als 











Makes Your Desktop PC Into Three Programs on One Chip. 
a Disk Drive For Your Laptop Computer. Cleaseau TEXT Editor— increases the 
BOOSTER LINK allows you to transfer Word Processing power of your built-in 


files between your desktop computer 
E Tandy 100/102/200 or NEC 
PC-8201/8300 using a special three- 
connector cable and TS-DOS or any other 
disk operating system. It allows TS-DOS to 
load, save, rename and kill files directly. If 
you have a BOOSTER PAK or the ROM ver- 
sion of TS-DOS, you can also create and 
move from subdirectory to subdirectory 
with the push of a button. BOOSTER LINK 
comes with a cable and is available for the 
IBM PG, XT, AT or compatibles and all 
models of the Apple Macintosh. 

BOOSTER LINK MAC/IBM 

Wihoalle 9 5 o IRA $99.95 
BONUS! BOOSTER PAK owners save $30.00 
(limited time offer) 


NOTE: BOOSTER LINK requires disk drive 
software to operate! 


TEXT program, Append to a paste buffer, 
search and replace, insert, overwrite, and 
more; Cleaseau ee w ector— a 
programming time by helping you e 
error causing statement = a the ROM2 
Macro Assembler and S lic 8085 
Debugger—assembles 300 lines per 
minute, allows you to simulate 1 
instructions per second, uses the com- 
plete 8085 instruction set, and more. 


ROM2/CLEASEAU ASSEMBLER . . $99.95 


When ordering, please match your computer model with the appropriate order number 
listed in the following chart. This number will help us expedite your order. Thank you. 








Product Tandy Tandy IBMs 
Name 100 10 200 NEC Macintosh & compatibles 
ULTIMATE ROM II RSI-UR2 RS1-UR2 RS3-UR2 NE1-UR2 
SARDINE Disk RSI-SDI RSI-SDI RS3-SD1 NE1-SD1 
SARDINE ROM Chip RS1-SD2 RS1-SD2 RS3-SD2 NE1-SD2 
SARDINE 4 ROM 
Set for Booster Pak RS1-SD3 RS1-SD3 
MAC-DOS II API-MDI API-MDI API-MD1 AP]-MD1 AP1-MD1 
LAP-DOS I PC1-LD1 PC1-LD} PC1-LD1 PC1-LPD1 PC1-LD1 
POWERCELL HWI-PPl HW1-PP1 HW1-PP1 HWI1-PPl 
8-ROM EXPANSION PAK 
wi INE PLUS RS1-SD4 RS1-SD5 RS3-SD3 NEI-SD3 
w/TS-DOS RSI-TS3 RS1-TS4 RS3-TS3 NE1-TS3 
TS-DOS Disk RS1-TS1 RS1-TS1 RS3-TS1 NE1-TS] 
TS-DOS ROM Chip RSI-TS2 RSI-TS2 RS3-TS2 NE1-TS2 
-ROM2/CLEASEAU : 
ASSEMBLER RS1-Chl RSI-CLI RS3-Chl NE1-CL1 
BOOSTER PAK HWI-BPl HWI-BP2 
um 
32K CMOS RAM ($20) HW1-BP3 HW1-BP3 
6 Slot RAM Expansion 
Board ($69 HW1-BP4 HWI-BP4 
256K RAM Expansion 
Modules ($159) HW1-BP5 HWI-BP5 
ernal Nicad 
Battery Pak ($69) HWI-BPÓ . HWI-BP6 
IBM PC Booster Link 
w/cable ($69.95)* PC1-BLI PCI-BL] PCI-BLI 
Mac Booster Link 
w/cable ($69.95)* AP1-BL] AP1-BL1 AP1-BLI 
Sardine Plus 4 Chip 
Set ($194.95 RS1-SD3 RSI-SD3 
BOOSTER LINK (Mac) API-BL] API-BLl API-BLI API-BLI AP)-BLI 
BOOSTER LINK (IBM) PC1-BL1 PC1-BL1 PC1-BL1 PC1-BLI AP]-BL1 PCI-BL] 





*BOOSTER PAK owners and purchasers save $30.00. Only $69.95. Limited time offer. 





North Creek Corporate Center - 19310 North Creek Parkway - Bothell, WA 98011 
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Delightful Data Entry 


A simple and easy way to collect data in the field 


by Joe Strayhorn 














he Tandy Model 100/102 

can be a convenient and 

useful data entry station. I 
wrote this program to create data 
files that could be easily uploaded to 
a desktop computer and analyzed 
with statistical packages such as 
SPSS/PC or Systat. The program can 
be especially useful for researchers. 
Butitis also useful for business or any 
other situation where data is entered 
into the computer. 


Sometimes the laptop is especially | 


useful as a data entry device because 
of its mobility: for example, an ob- 
server is rating behaviors in a class- 
room, or is gathering data from ar- 
chives where a desktop computer is 
not available. At other times, using 
the Model 100 as a data entry station 
is advantageous because it frees up a 
larger computer for other purposes. 

The data entry program printed 
here is small enough to leave lots of 
memory left over for data records. 
And it has a major advantage over 
some much larger database manage- 
ment programs: it allows checking of 
each piece of information at the time 
itis entered. The user can customize 
it to make sure that each number 
entered falls within the permissible 
range for that variable. If an entry 
does not meet the criteria, the pro- 





gram gives an explanation and a 
prompt to enter again. I'll soon tell 
you how to specify the minimum and 
maximim value for each variable you 
want to enter. There's also a way of 


telling the program nottorejectsome | 


numbers outside the permissible 
range, so that you can use those num- 
bers as missing value codes. 





Laptops are 
especially useful 
because of their 
mobility 





Increating files that are easily read 


by statistical packages, itis desirable | 


that each variable consume exactly 
thesame number of columns for each 
case. If the amount of information 
per case exceeds that which fits on 
one line, the statistical package can 
read more than one line per case. The 
statistical package can be told to find 
each variable in particular columns 








of a particular line. If the lines for 
each case are of length less than the 80 
columns usually displayed on a 
desktop monitor, it is easier to read 
them once they are uploaded. This 
program starts a new line when the 
length ofa line for one case is about to 


| exceed 78 columns. 


Certain variables, such as the 
subject's name, will naturally vary 
with respect to how many characters 
they contain. For such variables it 
doesn't make sense to insist that the 
data entry person enter an exact 
number of characters. Also, there are 
certain numeric variables where the 
number of digits can vary—for ex- 
ample, standard scores on tests can 
consist of two or three digits, de- 
pending on how well the person 
scored. In order to have variables 
such as these take up the same num- 
ber of columns for each record, the 
program has a "padding" conven- 
tion available, where all the allotted 
spaces for the variable to the left of 
what is entered are filled with zeros. 
For example, if the entry person en- 
tered 87 for the standard reading 
score, and the program allowed three 
columns for that variable, a zero 
would be added so that the output 
file would contain 087 in the three 
columns, The statistical package 
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10 REM "out.do" is the name of the output file 

20 OPEN "out.do" FOR APPEND AS #1 

30 REM AS(I) is is the data variable itself; ALS(I) is its label; 
40 REM AD(I) is the number of characters for that variable; 

50 REM PA(I) ís the code for how "padding" takes place 

60 REM MN(I) is the minimum for a numerical value 

70 REM MX(I) is the maximum for a numerical value 

80 REM NV is the number of variables you wish to enter 

90 REM Make sure NV is the same as the number of data statements 

100 NV-6 

110 REM M1 and M? are missing value codes that won't get rejected 
by minimum and maximum checker 

120 M1--9 

130 M2=9 

140 DIM AS(NV),ALS(NV),AD(NV),PA(NV) ,MN(NV) , MX(NV) 

150 RESTORE 

160 REM next section is data entry routine 

170 FOR I-1 TO NV 

180 READ AL$(I),AD(I),PA(I),MN(I),MX(I) 

190 PRINT "Please enter ";AL$S(I) 

200 INPUT AS(I) 

210 REM next section is the routine for change of an entry 

220 IF A$(I)<>"ch" AND AS(I)«»"CH" THEN GOTO 360 

230 INPUT "Number of variable-to change";V 

240 PRINT "Old value of";ALS(V);" was ";AS(V);". New value?" 

250 INPUT AS(V) 

260 REM next section checks and pads the changed entries 

210 IF AS(V)-"" THEN PRINT "Enter something for this 
variable":GOTO 240 

280 IF VAL(AS(V))2M1 OR VAL(AS$(V))-M2 THEN GOTO 300 

290 IF VAL(AS(V))<MN(V) OR VAL(AS(V))>MX(V) THEN PRINT "This 
should be between ";MN(V);" and ";MX(V):GOTO 240 

300 IF LEN(AS(V))^AD(V) THEN PRINT "This should have no more than 
"AD(V);" characters.":GOTO 240 

310 IF PA(V)=1 THEN GOTO 330 

320 IF LEN(AS(V))<>AD(V) THEN PRINT "This should be 
a";AD(V);"character entry.":GOTO 240 

330 IF LEN(AS(V))XAD(V) THEN AS(V)="0"+AS$(V):GOTO 330 

340 GOTO 190 

350 REM next section checks the original entries 

360 IF AS(I)s"" THEN PRINT "Please enter something for this 
variable.":GOTO 190 

370 IF VAL(AS(I))sM1 OR VAL(AS$(I))«M2 THEN GOTO 390 * 

380 IF VAL(AS(I))<MN(I) OR VAL(AS(I))»MX(I) THEN PRINT "This 


should be between ";MN(I);" and ";MX(I):GOTO 190 
390 IF LEN(AS(I))^»AD(I) THEN PRINT "This should have no more than 
";AD(I);" characters.":GOTO 190 


400 IF PA(I)-1 THEN GOTO 420 

410 IF LEN(AS(I))«»AD(I) THEN PRINT "This should be 
a";AD(I);"character entry.":GOTO 190 

420 IF LEN(AS(I))<AD(I) THEN AS(I)-"O"-AS(I):GOTO 420 

430 NEXT I 

440 INPUT "check answers? y/n";C$ 

450 IF LEFTS(C$,1)="y" OR LEFT$(CS$,1)= "Y" THEN GOSUB 570 

460 REM next section writes values to output file 

470 FOR T-1 TO ww 

480 L=L+LEN(A$(I)) 

490 IF L>78 THEN PRINT#1, "":L-LEN(AS(I)) 

500 PRINT#1,AS$(I); 

$10 NEXT I 

520 PRINT#1,"" 

530 INPUT "another case? y/n";Y$ 

540 IF LEFTS(YS,1)-2"y" OR LEFTS(Y$,1)="Y" THEN CLEAR:GOTO 20 

550 IF LEFTS(Y$,1)-"n" OR LEFTS(Y$,1)="N" THEN CLOSE:END 

560 IF LEFTS(Y$,1)«»"y" AND LEFTS(Y$,1)«»"n" AND LEFTS$(Y$,1)«»"v" 
AND LEFTS(Y$,1)<>"N" THEN GOTO 530 

570 REM next section allows data entry person to check 

580 FOR I-1 TO NV 

590 PRINT "Current value of ";AL$(I);" is ";AS(I);". Enter p to 
preserve, a to alter." 

600 INPUT D$ 

610 IF D$«»"a" AND D$«»"A" THEN GOTO 720 

620 PRINT "Enter new value" 

630 INPUT AS(I) 

640 REM next section checks and pads the changed entries 

650 IF AS(I)s"" THEN PRINT “Enter something for this 
variable":GOTO 620 

660 IF VAL(AS(I))-M1 OR VAL(AS(I))=M2 THEN GOTO 680 

670 IF VAL(AS(I))XMN(I) OR VAL(AS(I))»MX(I) THEN PRINT "This 
should be between ";MN(I);" and ";MX(I):GOTO 620 

680 IF LEN(AS(I))^AD(I) THEN PRINT "This should have no more than 
":AD(I);" characters.":GOTO 620 

690 IF PA(I)-1 GOTO 710 

700 IF LEN(A$(I))<>AD(I) THEN PRINT "This should be  ";AD(I);" 
characters long.":GOTO 620 

710 IF LEN(AS(I))XAD(I) THEN A$(I)-"O"*AS(I):GOTO 710 

720 NEXT I 


7130 RETURN 
740 REM data statements. define variable label, number of 
characters, padding convention, minimum, and maximum, 


respectively 

750 DATA  ient.number,3,1,0,999 

760 DATA subject's name (first name first; underlines in 
between) ,20,1,0,0 

770 DATA subject's date of birth (monthdayyear without 
separators) ,6,0,0,999999 

780 DATA subject's sex (O-Female i=Male),1,0,0,1 

790 DATA reading standard score,3,1,0,250 . 

800 DATA conduct rating (0 to 7 scale),1,0,0,7 


























Listing 1. A simple Data-entry program for the Tandy laptop computers. 





would read it as 87. 

On the other hand, for some other variables, such as the 
birth date that is six digit string, one does not wish to pad 
with zeros. Here, the convention should be for the pro- 
gram only toaccept those entries that are the exact number 
of digits specified. 

The program is set up to allow a choice between either 
of these conventions. If padding to the left with zeros is 
desired, the variable called PA (I) is set equal to 1; if a strict 
requirement of an exact number of digits is required, PA(I) 
is set equal to 0. I'll soon tell you how to specify the 
padding convention variable. 

When you run this program, the first thing you see is a 
prompt for the first variable. Type in the value, and if you 
haveentered it within the permissible parameters, you get 
the prompt for the next variable. If you have too many 
characters or you're outside the permissible range, you get 
a polite explanation and a request to enter again. 

If, before finishing the entry fora case, you discover that 





The program appends 
the values of each variable 
in memory to an output file. 





you have made an error and want to change a value, you 
enter the letters “ch” at the prompt for any variable. The 
program will respond by asking you for the number of the 
variable you want to change. (The first variable is number 
1, the second one is number 2, and so forth.) You enter that 
number, and the program prompts you with the old value 
and a request for a new.one. When you enter the new one, 
the program checks it and returns to whichever variable 
you left off with. 

After you've gotten through entering all the values for 
a case, the program asks you whether you want to check 
your entries. If you answer "y", for yes, then the program 
displays, one by one, the value you entered for each 
variable and asks you to type “p” to preserve that value,. 
or “a” toalterit. If you type "a", the program prompts you 
for a new value. If you've entered .a ^p", the program 
remembers it until you change it, so that you can just hit 
the enter key on subsequent variables to speed up the 
checking process, if you don't want to change the value. 

After this, the program appends the values of each 
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variable in memory to an output file 
called OUT.DO, and asks if you want 
to enter another case. If you answer 
"y", the process begins again; if you 
answer "n^, the data entry is termi- 
nated. 

When you start the program over 


again, new cases are appended tothe | 


end of the OLIT.DO file. You accumu- 
late cases until you want to upload 
the OUT.DO file to a larger com- 
puter, and then (once you're sure it 
was uploaded successfully and 
you've backed it up) you can kill the 
out.do fileand startanotherone. You 
don't have to create an out.do file, the 
program does it for you. 

The program written here is for a 
hypothetical data set where six vari- 
ables are entered: the subject's name, 
date of birth, sex, reading standard 
score, and conduct rating. The con- 
vention of padding to the left with 
zeros is used for the subject's name 
and the standard reading score; for 
the other variables, a set number of 
digitsisrequired. Forthis data set the 
values 9 and -9 are missing value 
codes: these will not be rejected by 
the range checker. 

Here's how to alter this program 
so as to customize it for your own 
data set. The changes occur in the 
DATA statements at the end of the 
program, the NV (number of vari- 
ables) definition in line 100, and the 
missing value codes (M1 and M2) in 
lines 120 and 130. For line 100, you 
simply figure out how many vari- 
ables you want to enter for each case, 
set NV equal to that number. 

NV should equal the number of 
DATA statements. For lines 120 and 
130, you decide on how you want to 
code your missing values, and set M1 
and M2 equal to those missing value 
codes. 

Then you set up the DATA state- 
ments for your own data set. Each 
DATA statement should have five 
elements, separated by commas. The 
first is the variable name; this is the 
name the program uses to prompt 
you before each entry. Everything up 
to the first comma is the variable 





name. The second element is the 
number of characters allotted for that 
variable. The number you specify 
here, before the second comma, is 
how many columns that variable will 
occupy in your output file. The third 
element in the DATA statement is the 
padding convention. If you want the 
variable padded to the left with ze- 
ros, puta 1 before the third comma; if 
you'd rather be required to enter the 
exact number of digits, put a 0. The 
last two elements are the minimum 
and maximum, respectively, for the 
permissible values for that variable. 
The program will reject any entry 
outside that range, except for the 
missing values you supply. If the 





Would you rather 
not bother with 
a minimum 
and 
a maximum for 
each variable? 





variable is not a numeric one, the 
value the program will see is 0; you 
can make the range checker perfect 
numerical values by entering 0 for 
both the minimum and maximum for 
these variables. For local telephone 
numbers you can enter zero as a 
minimum and 9999999 as the maxi- 
mum, so no values will be rejected. 
When you enter these five ele- 
ments in a DATA statement for each 
variable you want, and set NV ac- 
cordingly, and set M1 and M2 to 
whatever you want, you are all set to 
use the program to enter your own 
data set. 
Would you rather not bother with 





aminimum and a maximum for each 
variable? If so, then change a few 
lines. First, in line 180 — the READ 
statement — eliminate MN(NV), 
MX(NV), so that the program does 
notlook forthese values inthe DATA 
statements. Eliminate lines 290,380, 
and 670, the ones that check for 
whether entries are less than MN or 
greater than MX. And in the DATA 
statements, just enter the first three 
elements, and skip the minimum and 
maximum. 

Variables such as names look a 


| little better if they're padded with 


spaces rather than zeros. I use zeros 
here, though, because of the way the 
text editor for the Model 100, in a 
spirit of helpfulness, thinks that 
strings separated by spaces are 
words and thus avoids breaking 
them up. The text editor adds soft 
spaces that make the variables ap- 
pear not to start in exactly the same 
column if you inspect the OUT.DO 
file. If you pad with zeros rather than 
spaces, and if you separate elements 
such as first and last names with 
underline characters instead of 
spaces, then you can take a look peri- 
odically at your out.do file with the 
text editor and see the variables lin- 
ing up in the same columns case after 
case. If you'd rather use spaces than 
zeros for padding, make the altera- 
tion in lines 330, 420, and 710. 

Once you upload your OUT.DO 
file to the desktop computer, it 
should be an ASCII file that your 
statistical package can easily read. 

Incidentally, the program can also 
be used in machines other than the 
Model 100. If you have an IBM com- 
patible, it works fine with GW BASIC. 
You may want to take advantage of 
its checking routines, or the fact that 
it costs nothing, and use it on a desk- 
top machine for data entry. 

Q 








APRIL 1988 PORTABLE 100 23 





MATHEMATICS 








Model 100 Numbers 


Your computer isn't as accurate as you think it is. Read on for an in- 
depth, non-technical look at just how the Tandy computers compute. 


by Louis C. Graue 








ost calculations are per- 
formed on computers 
without serious error. 


Nevertheless, all computers and cal- 
culators do occasionally produce 
highly erroneous answers; and when 
they do, they display them as neatly 
and authoritatively as correct ones! 

For example, type PRINT (1-7*(1/ 
7)/(1-3*(1/3)) on a Model 100 com- 
puter. The computer prints "2" foran 
answer while hand arithmetic tells 
you that the result should be 0/0 and 
therefore undefined. The Model 100 
will tell you that (1-69 * (1/69)) / (1-68 
* (1/68)) = 3 and that 3* (1/3) = 
.99999999999999. 

If you try the above on other com- 
puters you will probably get differ- 
ent answers. My Heathkit H89 tells 
me that 3*(1/3) is equal to 1. This does 
not mean that it is better at arithmetic 
than the Model 100. It just uses a 
different system for string numbers. 
The H89 tells me that 5*(3/5-1/2)-1/ 
2=1.19209E-7 while the Model 100 
gives the correct result of 0. It is not 
likely that your home computer will 
give your banking balances exactly 
thesameas yourbank computer does 
since they probably do not store 
numbers alike. 

There is no largest real number 
and between any two different real 








| 
| 
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Figure 1. How the Model 100/102 stores numbers in memory. 


numbers there are infinitely many 
distinct numbers. Every computer 
has the same problem of trying to 
represent the infinite dense set of real 
numbers using a finite discrete set of 


| numbers. For any computer you can 


cook up arithmetic calculations that 
will yield incorrect results. To under- 
stand why they are incorrect and to 
have a chance of avoiding some seri- 
ous errors requires a knowledge of 
how your computer stores numbers. 


HOW THE MODEL 100 
STORES NUMBERS 

The Model 100, using BASIC 
handles variables in a different way 
than most computers. The default 
condition is double precision rather 
than single precision. If you do not 
specify thata variable is an integer or 
single precision it is stored as a 
double precision variable. This com- 
puter also stores numbers using bi- 
nary-coded-decimal (BCD) cells in- 
stead of a power of 2 base like must 





other computers. 

We will see that the only numbers 
X stored are those that can be ex- 
pressed exactly as X = 
d1d2d3d4d6d6d7d8d9d10d1 1d12d13d14E 
+c, where .d1...d14 is a 14 digit deci- 
mal with d1 not zero, and can integer 
between -64 and 63. For example: the 
number 1234 expressed in the above 
notation would be 1234 = 
.12340000000000 *10^4. The number 
is stored as a 64 bit quantity in mem- 
ory as shown in figure 1. 

The first bit represents the sign of 
the number; 0 is plus and 1 is minus. 
The next 7 bits give the exponent c, 
with a bias of 64. This means that the 
exponent is obtained by subtracting 
64 from the value stored in these bits. 
In the example 1000100 base 2 is 68 
base 10. Subtracting 64 gives the ex- 
ponent 4. The mantissa is stored in 
BCD form. That is, each decimal digit 
is represented by a nibble (four bits). 
There are 14 of these nibbles: 0001=1, 
0010=2, 0011=3, 0100=4, 0000=0, and 
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so on. 

The computer automatically normalizes the mantissa 
M of a nonzero X by floating the decimal point immedi- 
ately to the left of the leftmost nonzero digit of X and then 
adjusting c accordingly. That is why this is called the 
normalized floating point decimal representation of X. As a 
result of normalization, the smallest mantissa used for a 
nonzero X is .10000000000000-10^-1 and not 
.00000000000001-10^-4. Now we can figure out the larg- 
est and smallest positive numbers and also calculate ex- 
actly how many different numbers can be stored in the 
Model 100. The largest exponent is obtained when the 7 
exponent bits are all 1’s (1111111) and thatis 127 in base 10 
arithmetic. Sinceit has a bias of 64 we mustsubtract 64 and 
thus obtain 63as the largest possible exponent. The largest 
positive number that can be stored is 
L=99999999999999E+63. 

The smallest exponent is given when all the exponent 





For any computer 
you can cook up 
arithmetic calculations 
that will yield 
incorrect results. 








bits are 0's Subtracting the 64 bias give -64. Therefore the | 


smallest positive number that can be stored iss=.1E-64. 
Listing 1 is a program that will let you see exactly how 
any number you enter is stored. Use it to experiment with 
large and small numbers with both plus and minus signs. 
The\positive storable numbers in Table 1. The first 
number is the smallest and the last is the largest. There are 
9*10^13 numbers in each row and 128 rows. In the first 
row the numbers are 10^-78 apart, in the second row the 
spacing is 10^-77, and in the last row the spacing is 10^49. 
Any number not in the list is represented by the number 


in the list closest to its value. For example 1/3 is between | 


.333 333 333 333 33E-00 and .333 333 333 333 34E-00. The 
computer selects the first number since it is closer. One- 
hundred-trillion (100,000,000,000,000) can be stored but 


| one-hundred-trillion-one (100,000,000,000,001) can not be 


| stored. The hundred-trillions that can be stored are 10 


units apart. 100,000,000,000,010 and 100,000,000,000,020 


and 100,000,000,000,030 and so on can be stored but no 


| 
| 











1 'READ NUMBER STORED 
10 INPUT"NUMBER TO BE STORED ";N 
15 C-PEEK(VARPTR(N)) 
17 PRINT"CHARACTER =";(CMOD128)-64;" & " 
18 IF C>=128 THEN PRINT"SIGN IS -" 
PRINT"SIGN IS +" 

19 PRINT"MANTISSA IS:" 

20 FOR I-2 TO 8 

30 A(I)-PEEK(VARPTR(N)-*I-1) 

49 PRINT INT(A(I)/16);A(I) MOD 16; 
(59 NEXT I 


Listing 1. This program reads numbers edis as iia y are stored in the 
computer's memory. 


ELSE 











.10000000000000E-64, .10000000000001E-64, ... , .99999999999999999E-64 


.10000000000000E-63, .10000000000001E-63, ... , .99999999999999999E-63 
.10000000000000E-01 , .10000000000001E-01, ... , .99999999999999999E-01 
.10000000000000E-00, .10000000000001E-00, ... , .99999999999999999E-00 
.10000000000000E 4-01, .10000000000001124-01, ... , .99999999999999999E--01 





E | 
-10000000000000F +-62, .10000000000001E=+62, ..., . 99999999999999999E 4-62) 
-10000000000000E +63, .100000000000011+-63, ... , .9999999999999999914-63 








Table 1. A list of all the positive storable numbers. 


values in between. If you write a program where you in- 
crement the variable K and ask it to stop when 
K=100,000,000,000,005 the program will never end be- 
cause that value can not ever appear. 


SOURCES OF ERRORS 

In double precision mode we have to expect roundoff 
error in the 14th digit. Unfortunately the errors can propa- 
gate to the extent that answers can be complete garbage. 

Subtracting two nearly equal numbers can destroy 
accurate significant digits in a single operation! To illus- 
trate, consider the computation of 1-7*(1/7) on the Model 
100. Note that 7*(1/7)=.999 999 999 999 98 
has 14 significant digits with roundoff error in the 14th or 
least significant digit. This is close to 1. We subtract from 
1 and get I-7*(1/7)=.000 000 000 000 02. 

Notice that the most significant digit is now the inaccu- 
rate 2 in the 14th decimal place and the accurate significant 
digits have been canceled. 

Errors can be magnified by multiplying by a large 


| number. The Model 100 tells you that (10^16)*(1-7*(1/ 





7))=200 instead of the correct answer of 0. 

Another source of erroris the adding (orsubtracting) of 
two numbers whose magnitudes are so different that the 
resulting sum (or difference) gets rounded to the one 
having the larger magnitude. For example, on the Model 
100 1E14 + 1=1E14. 

That is, one hundred trillion plus one is still one 
hundred trillion. Also, 1 + 10^-14-1. 
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MATHEMATICS 

















1234567*678912= 
(1*10^64-234*10^34-567*10^0)*(678*10^34912*10^0)- 


678*10^94-159564*10^6--597834*10^34517104*10^0- 
838,162,351,104 





|. (1*10^64234*10^34-567*10^0)*678*10^3-4-(1*10^6-4-234*10^34-567*10^0)*912*10^0- 
(1*678)*10^9--(234*6784-1*912)*10^6--(567*6784-234*912)*10^3--(567*912)*10^0- 








the pitfalls inherent in the computer's built-in multiplication routines. 





Itis notlikely that a programmer can always anticipate 
when the above sources or errors will be significant. It is 
| always necessary to have some rough idea of the values 
| the computer should be expected to produce in a given 
application and to check this against the output. 


MULTIPRECISION 
MULTIPLICATION. 

A computer is a versatile tool and can do just about 
anything if you can figure out the right program. Listing 
2 is a program that makes it possible to multiply nearly 
any two numbers and produce an exact answer. The 
numbers to be multiplies are not stored in the usual way. 


is placed in the output string variable C$. The underlying 
algorithm is based upon repeated applications of the 
Distributive Law of Multiplication: A(B + C)=AB +AC 
(see figure 2. for examples). 

Products are performed in three digit segments and ap- 
propriately grouped. If the numbers you wish to multiply 
contain decimals just enter the digits without any decimal 
points. After the product is computed then enter the 


could also modify the program to automatically place the 
decimal point. 
Here is an example you can use to test the program after 
you have keyed it in: 123456789012345 *543210987654321. 
The answer you get should be: 067 063 084 292 027 052 


| 277 861 592 745. 


If you don’t have much memory on your machine, you 


| may have to reduce the numbers in the DIM statements in 





line 10 of Listing 2. That will of course reduce the size of the 
numbers that you can multiply. If you have several other 
programs stored in your memory you will most likely get 
an OM error when you try to run the program. 

a 








They are read as string variables A$ and B$. The product 


decimal point by hand. The number of decimal places ina | 
productis the sum of the decimal places in each factor. You 





Figure 2. The program in listing 2 uses the principles of the Distributive Law of Multiplication to provide accurate, high-precision multiplication that avoids 





[19 Xag yok 88K ilo Xa Roue L 1X3 Lenk HAS HU 
2-Xil-XiJ-X:8-XiY-X:W-X:W1-X:D$-"":G$-"" 
DIMA$(409),B$(4090),C$(400),^(200) , B(200 
), C(200) ,D(200) : INPUT"MULTIPLICAND => "; 
A$:INPUT"MULTIPLIER => ";B$:GOSUB2@:PR 
INT"PRODUCT IS " ek END 

20 Q-0:C(0)-0:0(9) -0:C(1)-0:FORK-1T0200: 

| C(K) -0:D(K) -Ü:NEXTK:L-0:56-0:GOSUB50:L1- 
L2:U1-U2:FORK-1TOU1:A(K)-B(K) :NEXTK:D$-" 
| ":G$=" ":A$-B$:FORK-1T0200:C(K) -0:D(K)- 
@:NEXTK:L=@:S6=9:GOSUB5@:FORI=1T0U1:FORJ 
21T0U2:C(I*J) C(I*J) *A(I) *B(J) : NEXTJ:NEX 


TI:S-U1*U2 

30 FORK-2TOS*1:D NT(C(K)/19000 
9 
Fr 
N 
1 


w. 


(K-1 
ØØØ)*1ØØØØØØ-INT((C( 
*1000000) /1009) *1000 
-1)/1900000) *10090009 
0000900) : NEXTK:FORK-1TO 
(K-1)-INT(D(K-1)/190000 
| :NEXTK 


C 
N 
1 
$: 


Serer ie 


I 
C(K) /199006 
(K-1)-INT(C 
+INT(C(K-2) 
)-D(K)*INT( 
0009090) /100 
D(K)/100000 
/1000009) *1 


To 


*1000090 - INT((D(K)-INT(D(K) 


:NEXTK: RETURN 

50 L2=LEN(A$) :X=INT(L2/3) :Y=3*X-L2:1FY=6 
THENU2=XELSEU2=X+1 

60 FORK=1TOU2:W=L2-3*K+1: IFW<=@THENW=1 
SE, ied. Ce ee ence ae 
-1 

89 B(K)=VAL(MID$(A$,W,W1)):NEXTK:RETURN 
9Ø X-D(S*1-K):S6-X4S6:IFS6-QTHEN210 

1890 D$=STR$(X):IFX>99THEN160 

119 IFX29THEN156 

120 IFX>@THEN149 

130 G$="990":GOTO1796 

149 Se tamener E d 14 rO DIT 

158 G$= Tm ,2):60T0176 

160 G$-MID$(D$,2 

178 IFQ- BTHENISBELSE199 

188 C$=G$:Q=1:G0T0206 

190 C$=C$+G$ 

200 C$=C$+" "n 

210 RETURN 














Listing 2. PMULT.BA makes it possible for you to multiply almost any two 


numbers and get an accurate answer. 





| 0009) /1000) * 1000 : NEXTK:FORK-1TOS:GOSUBOU. 
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The Phantom 24K 


Loss Of Memory 
Model 100 


by Carl Oppedahl 








In Your 








| ave Ketchum of Santa 
D Monica wrote me recently 
to tell of a strange and 
frustrating experience with his 32K 
Model100. Every so often he turns on 
the computer, only to see a brief 
glimpse of the normal main menu, 
then suddenly a change to the 
dreaded January 1, 1900 and a sur- 
prisingly small number of free bytes. 
This sequence of events has hap- 
pened to me as well, and the cause, a 
loose or bad memory chip, is usually 
easy.to determine and repair. 


MEMORY DESIGN 

The microprocessor in your 
Model 100 (an 8085 CPU) can control 
up to 64K of memory. The circuit 
board holding the CPU and the 
| memory chips controls how the 
memory is arranged. The bottom 32K 
isina ROM chip called the standard or 
operating system ROM, while the top 
| 32K, ifinstalled, is in RAM. 

When the 100 is first manufac- 
tured, the RAM chips are filled with 
random data. This is not a problem 
because the CPU, when powered up, 
starts executing instructions located 
in the ROM. (The ROM contents are 
determined in the factory, and re- 
main unchanged thereafter despite 
power being off during shipment.) 





RAM chips vary their contents 
from time to time, and under certain 
circumstances lose all their contents. 
Just like someone moving into a new 
house who puts paper towels in the 
kitchen and art on the walls. When 
the 100 is turned on for the first time 





The area between 
62960 and 65535 
is often called the 
system RAM 





the CPU copies certain information 
from the ROM into.the previously 
random. RAM. Among the items set 


upinRAM arethenames of the built- | 


in-files, BASIC, TEXT, and so on. The 
part of RAM that keeps track of the 
time of day gets initialized to January 
1, 1900, a Sunday. The initialized 
area, located between 62960 and 
65535 decimal, is often called the sys- 
tem RAM. 

One of the things the CPU does in 
that initial power-on sequence is to 
check to see how much RAM has 





been installed. In a Model 100, the 
answer is 8K, 16K, 24K, or 32K. (Ina 
102, the answer is either 24K or 32K.) 
The answer to that question is itself 
stored in RAM (for you hackers, it is 
at FACO hex). That information is 
relied upon quite often in the Model 
100, suchasin displaying the number 
of free bytes. 


In a 100 or 102 the number of free | 


bytes you will see upon such an ini- 
tial power-up is 29638 for a 32K 
machine— of the 32768 bytes avail- 
able, 3130 are used for system pur- 
poses (2575 of them in the system 
RAM area) leaving the 29638 bytes 
free. If the computer was an 8K 
model the number of free bytes is far 
fewer—8192 minus 3130, or 5062 


. bytes free. 


I have described what happens 
when the computer is powered up 
for the first time ever. If you are like 
most of us, you set the date and time, 
and create a file or two. Then sup- 
pose you turn the power off (and by 
this I mean the ON/OFF switch on 
the right side of the computer). When 
you turn the power on, why doesn’t 
the CPU again load initialized values 
into system RAM from ROM (which 
would set the date to January 1)? 

Putting the question differently, 
how do you explain the fact that 





APRIL 1988 





J 


PORTABLE 100 27 





TROUBLESHOOTING 





when you turn the computer on your 
files are still there and the date is 
correct? 

The answer is that whenever the 
CPU is powered up, it checks certain 
| things in the system RAM area to 
figure out whether the computer is 
just now being turned on for the first 
time ever (in which case the CPU will 
initialize all of RAM), or whether the 
computer has been turned on before 
| (and the existing system RAM con- 
tents should be kept). 

If I have presented the problem 
correctly, you should now be asking 
yourself "how does the CPU, on 
power-up, decide this very impor- 
tant matter?" The stakes are obvi- 
ously very high. If the CPU made the 
wrong decision you would either 
have a computer that would not run, 
or would lose all your files. 


WRONG TURNS 

The CPU could decide wrongly 
that RAM doesn't need re-initializing 
when in fact it does, and the result on 
| power-up would be a crazy-looking 
or a blank screen. But in any event it 


would be a screen that did not look | 


like a normal main menu. (When this 
happens, your only choice is the 
CTRL-BREAK reset described be- 
low.) Or the CPU could decide to re- 
initialize system RAM ata time when 
reinitialization was not called for, 
showing youa screen full of blank file 
names where your precious file- 
names once appeared. 


THE DECISION 

Here's how the CPU, on power-up 
(or on your pressing the RESET but- 
ton), decides whether to re-initialize 
system RAM. It first checks to see 
whether the CTRL and BREAK keys 
were held down at the moment 
power was turned on. If the answer is 
yes, then off you go to January 1, and 
a freshly-reloaded system RAM. 

Assuming CTRL-BREAK has not 
been pressed, then the CPU checks to 
see whether the filename BASIC is up 
there in the menu directory in system 
RAM where the CPU would expect it 





to be (hackers: it is around F962 hex). 
If those five letters are missing, or 
have been changed to lower case, or 
have otherwise been tampered with 
in any way, off you go to January 1. 

Next the CPU looks to see how 


| much RAM is physically present. By 


way of background, if there is an 
empty RAM socket, that part of 
memory tests out as all l's in the 
Model 100, no matter what the CPU 
puts there. If there is a socket with 
RAM installed, that part of memory 
will contain whatever the CPU has 
put there. The CPU tries reading and 
writing a few ones and zeros to each 
socket, to see how many RAM chips 
are plugged in. The worst case is that 


the computer has only 8K of RAM, so 





The CPU could 
decide wrongly 
that the RAM 
doesn't 
need 
re-initializing 





| the CPU first checks to see if the chip 


is plugged in that would bring the 
total to 16K. (The socket is labelled 
"option RAM #1”.) If it is, the CPU 
looks for the chip that would bring 
the total to 24K (option RAM #2), and 
after that the chip that reaches 32K 
(option RAM #3). 

If the CPU finds that option RAM 
#1 is missing, it does not bother to 
look for the next two chips. Similarly 
if the option RAM #2 is missing the 
CPU does not look for the last one. 
The CPU is only interested in con- 
tiguous RAM. 

Having gotten an answer to the 
question of how many RAM sockets 
are filled, the CPU compares the 





answer with the result that was | 
found the las! time the computer was 
turned on (stored at FACO hex). If 
the two values are the same, the CPU | 


| goes on to display the familiar main 


menu with your filenames and 
today’s date. If, however, the two 
values are different, then the CPU re- 
initializes system RAM and shows 


| you an empty menu and a date of 


January 1. 

This explains why you lose all 
your files whenever you add RAM to 
your computer. 


MR. KETCHUM'S PROBLEM 

By now you can probably guess 
the cause of Mr. Ketchum's problem. 
It must be that his option RAM £1 
chip was loose, or had a bent pin that 
touched the socket intermittently, or 
was defective. Thus the CPU, upon 
power-up, decided the computer 
contained only 8K rather than 32K. It 
re-initialized system RAM, and 
showed only 5062 bytes. | 

Mr. Ketchum turned the machine 
off and ona few more times, and got 
back to the more usual 29638 bytes 
free. That's because option RAM #1 
got working again. When I had this 
problem on my 100 I carefully re- | 
moved my option RAM #1, and sure 
enough one of the pins was bent, and 
had never extended down into the 
socket. It did, however, barely touch 
the socket. This fragile connection 
took two years to reveal itself. I 
straightened the pin and gently rein- 
serted the chip. 

A chip that is defective internally 
ora cracked circuit-board trace could 
do the same thing. In the former case, 
you can still replace the chip and fix 
it. In the latter case, which is quite 
unlikely, you would have to replace 
the circuit board. 

Model 100s rolled off the produc- 
tion line in two varieties, 26-3801's 
with 8K of RAM and three option 
RAM sockets, and 26-3802's with 24K 
soldered in and only one option 
RAM socket. (Some 3801's had two 
more chips added so they could be 
sold as 3802's) Without having seen 
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ASSEMBLER 

by HSI 
Our assembler is the answer to your assembly language programming needs. It has 
all the features you expect in an assembler and more! It requires less than 3K of 
your RAM and is relocatable to any place in memory. You can output all or any 
portion of the assembled listing to your screen or printer. A 56 page manual covers 
the use of the assembler, the 8085 instruction set, useful sample programs and 
information on the ROM and reserved RAM 
(100/102, 200, NEC) 


$29.95 


BYTEFYTER 


by General Business Systems 

Expand the memory capacity of your programs. Bytefyter is a machine language 
program that does just that. Also, it's relocatable so that it won't conflict with other 
machine language programs that you use. 

Bytefyter works on your BASIC programs as they are. It strips unneeded spaces and 
remark lines, and combines the lines of the BASIC programs to whatever length you 
specify. By combining lines, Bytefyter saves a tremendous amount of space. 
Bytefyter checks the logic of your program and doesn't combine lines that would 
cause the program to crash. 


(100/102, 200, NEC) 
$29.95 





ORDERING INFORMATION 


TELEPHONE: visa, Mastercard and COD call 
(313)243-5320 between 9 and 5 EST 
MAIL: Send your order to: 


Hardware-Software Integrations 
415 S. Monroe Street 
Monroe, Michigan 48161 


More great software from HSI! 


RENUMBER 


by General Bysiness Systems 

Renumber is a machine language program that lets you renumber the lines of your 
BASIC programs IN PLACE! Renumber adjusts all references to line numbers 
throughout the program. It is completely relocatable so it won't conflict with your 
other machine language programs. 

Renumber is FAST! It will renumber even the largest program in seconds. You can 
renumber all or just part of a program. You decide the starting line number and the 
increment to use. It couldn't be any simpler. This is one utility that the serious BASIC 
programmer just can't afford to be without! 


(100/102, 200) 
$29.95 


XVI.BA 
by Tri-Mike Network East 
XVI.BA simulates the popular "16* game in which the player must arrange 15 
scrambled letters in alphabetical order on a 4-by-4 grid. Simple to play - just move 
the pieces around the grid with the arrow keys. Scramble the puzzle at any time by 
pressing a key. For the terminally frustrated, there's even a key to solve the puzzle. 
The state of the game is automatically saved on quitting. Written in super-fast 
machine language, but runs like a BASIC program! 


(100/102, 200, NEC) 
$19.95 


DVORAK 
by Tri-Mike Network East 
Give your laptop the Rolls-Royce of keyboards. The Dvorak key arrangement 
eliminates wasted motion, reducing finger travel by more than 90 percent! Typing 
is faster and more accurate. It feels better - more natural, more relaxed. So there's 
less effort, less error, and less fatigue. And learning to type is much easier. No 
hardware! Just run the program once and forget it. Uses less than 650 bytes of 
RAM. Works in BASIC, TEXT, TELCOM, etc. 
(100/102, 200, NEC) 














MasterCard 





PLEASE ADD $1.50 PER PROGRAM SHIPPING AND HANDLING. BE SURE TO SPECIFY 
MODEL 100/102, 200, or NEC. MICHIGAN RESIDENTS ADD 4%. 


Circle 80 on reader service card. 


$29.95 





it, I can say that Mr. Ketchum's com- 
puter is of the former type. 

Mr. Ketchum says someone men- 
tioned to him that the problem might 
bethat the built-in nicad (theone that 
keeps your files intact when you 
change batteries) "might be getting 
low." That can't be the explanation, 
because the nicad can only run low if 
the AA cells were to run down. But if 
the AA cells had run down he would 
not be able to turn on the computer. 
In any event a problem with run- 
down AA cells and nicad would re- 
sultinanempty computer with 29638 
free bytes, not 5062. 


THE TANDY 102 

Canthis happen to the Tandy 102? 
It can, though it is less likely and the 
solution is less expensive. For one 
thing, three of the four 8K RAM 
banks are soldered in place. The only 





socket is the bank that gets you from 
24K to 32K. Thus there are fewer 
opportunities for the phantom- 
memory problem to occur. (If it does 
happen you will see 21446 bytes free 
instead of 29638.) The one chip you 





The moral of the story 
is always back up 
your files 





can replace (the one that gets you 
from 24K to 32K) is a one-piece 64K- 
bit integrated circuit costing only a 
couple of dollars. If you happened to 
get a bad one, the decision to replace 
it would not be very costly. 





The moral of the story is always 
back up your files onto tape or disk. 
There are plenty of ways to lose a file 
other than those described here, and 
you should protect yourself. 


f you find yourself at January 1, 
900, the files may still not be lost. 
he reinitialization happens to the 
ystem RAM area, which includes 
he filenames, but the contents of the 
iles were in non-system RAM, and 
ay still be there. BA and CO files are 
ifficult to recover, but DO files are 
asy to get back. See Reviving a 
owned System, July 1986 about one 
ay to recover them onto cassette tape, 
or use RESTOR, a program distrib- 
uted free by PCSG that restores them 
right in RAM. 

But make frequent backups just to 
be safe anyway. 

a 
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by Alan L. Zeichick 


A Dynamic Duo 


A review of Peptone’s SPRINT.CO and SEARCH.CO 








T hose expensive high-pow- 
ered ROM-based programs 
aren't for everyone. Not 
every Tandy laptop-computer user 
needs a spreadsheet, sophisticated 
word processor or other desktop- 
style utility in his or her laptop. 

If your Model 100, 102 or 200 is 
nearly perfect right out of the box, 
without those complicated add-ins, 
perhaps you should take a look at 
Pepton's SPRINT and SEARCH soft- 
ware. They add often-requested fea- 
tures at a reasonable price, and with- 
out changing the whole character of 
the computer. 


FINDERS KEEPERS 

Although TEXT has most essential 
text-editing functions, a search-and- 
replace facility is sadly lacking. AI- 
though it's not difficult to write a 
search-and-replace program in BA- 
SIC, Peptone hopes you'll choose to 
purchase theirs instead. And with 
good reason: SEARCH.CO is fast, 
compact, and offers features difficult 
to implement in BASIC. 

Once SEARCH is loaded from 
cassette or disk, the 1,825-byte utility 
can be run from the main menu, after 
a CLEAR 0,60900 is executed from 
BASIC. The program offers a four- 








option menu: search and replace, | 


numeric code charge, global search 
with word count, and exit. 

The search-and-replace choice 
will probably be used most often. 
Once that option is selected, 
SEARCH displays a list of .DO files, 
and requests a file to operate on. 
Next, the program asks if the search is 
to be case-sensitive; that is, will a 
search for SMITH accept smith or 
Smith asa match? That’s a feature dif- 





They add 
often-requested 
features at a 
reasonable price. 





ficult to program efficiently in BA- 
SIC. 

Finally, the program prompts for 
the actual search and replacement 
strings. The strings may be as long as 
30 characters. Once they're entered, 
the search process begins. 

Since global search-and-replace is 
a potentially destructive operation, I 
would have preferred that SEARCH 
ask one more question, such as "Is 





that okay?”, before actually changing 
documents, in case the user made an 
error when specifying the replace- 
ment string. 

When the search is complete, 
SEARCH returns toits menu. I would 
have appreciated a summary report 
of how many changes were per- 
formed—if any. 

SEARCH's numeric code-change 
is a more limited utility, changing 
any single ASCII character within a 
file into any other single ASCII char- 
acter, such as changing all occur- 
rences of decimal 090 to decimal 169. 
The utility can also delete all of occur- 
rences of 090, if desired. 

The third menu choice, global 
search and word count, performs the 
search-and-replace function on all 
.DO files in RAM, without even an 
"Are you sure?" This is a feature I 
consider dangerous. The routine 
does, however, return the number of 
matches for each .DO file, along with 
each document's word count. Now, 
why couldn't that have been done for 
the normal search operation? 

Finally, pressing the letter E exits 
SEARCH, and returns to the main 
menu. Pressing F8 doesn't exit to the 
menu. This is clearly a non-user 
friendly feature, since the ROM- 
based software, as well as many 
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commercial products, use F8 for that 
purpose. 

The SEARCH program does its job 
adequately. Throw in the program’s 
uninspired three page documenta- 
tion, and you have $18.75 worth of 
software. It’s a good value. 


PRINTERS PEEKERS 

I find the full name of Peptone’s 
SPRINT software misleading. It’s 
called a “universal print driver pro- 
gram”; I would call it a simple print 
formatter. 

Hyperbole aside, the 2,708-byte 
SPRINT corrects the obvious short- 
comings in the old Tandy 100/102 
TEXT routines. SPRINT offers user- 
controllable page size, line length, 
left margin, page numbering and 
line-end code, as well as in-text for- 
matting commands. 

SPRINT does a good job with basic 
text-formatting functions. Its page- 
numbering option is welcome, with a 
choice of page-number formats: at 
the end of the page, on the right mar- 
gin; orat the end of the page, centered 
between the margins and sur- 
rounded by dashes(i.e., -3-). 

SPRINT's main menu offers five 
choices: modify setup, soft review, 
printing a file, printing part of a file, 
and exit. Again, exit requires that the 
user press E; F8 isn't implemented. 

The various printout options men- 
tioned above are changed by select- 
ing modify setup from the menu. The 
user's preferences may be made per- 
manent by modifying the machine- 
language program. The user can 
decide to use either the parallel or 
serial port for printing. And address- 
ing the dreaded line-feed problem, 
the user can also choose to terminate 
printed lines with either a carriage 
return or a carriage-return/line-feed 
combination. 

Several options may also be tem- 
porarily overridden by inserting 
special codes into the print docu- 
ment; these include line spacing, line 
length, left margin (which Sprint 
| calls the "indent"), and choice of 
ragged-right or ragged-left text. 


Support America's € Because college is more than a place where 
or 


young people are preparing 
for its future. 


If our country’s going to get smarter, stronger —and more competitive 
—our colleges and universities simply must become a national priority. 

It’s an investment we all share in. Government. Private citizens. And 
the business community. After all, the future of American business depends 


on it. 


So help revitalize America’s economy with a corporate gift to the 
college of your choice —and you'll know you've done your part. 


Give to the college of your choice. 








m ee 





their future. It's where America is preparing 
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SPRINT offers two additional fea- 
tures. Correction printing allows the 
user to print a single page, by page 
number. This is aimed at those with 
slow printers, who discover a typo- 
graphical error on page 12 of a 13 
page document. 

Thesecond "extra" is referred toas 
soft reviewing. It’s what other ven- 
dors call pixel plotting. A miniature 
version of a complete page is dis- 
played on the Model 100's screen, 
with each pixel blackened to repre- 
sent each character to be printed. Un- 
fortunately, the pixel plot starts to- 
wards the center of the screen; there's 
no way of telling where the text is in 
relation to the page's absolute left 
margin. On the whole, the feature is a 
useful one. 

SPRINT comes with a three and a 
half page laser printed manual. The 
documentation is insufficient for 
learning the program. The various 
page-formatting options aren't ade- 
quately explained, and thus the new 
user will have to experiment to learn 
what SPRINT can do. This could be 
disappointing for the novice Model 
100 owner. 





SPRINT is a good program. With 
its small RAM overhead and reason- 
able price, it’s a good choice of a 
stripped-down text formatter. 

a 
Alan L. Zeichick, formerly the technical 


| editor of Portable 100 is the technical 


editor of IDG/Peterborough’s Portable 
Computer Review and CD-ROM Re- 
view. _ 





| Peptone Software 
10112 Ebenshire Court 
Oakton, VA 22124 


SPRINT.CO version 13.0, $28.95 
SEARCH.CO version 13.0, $18.95 
Peptone’s software is available | 
for Radio Shack Model 100/102 
and also for the Model 200. 


SEARCH and SPRINT were re- | 
vised in 1987 and Peptone offered 
its customers the upgrade for only 
six dollars per program. Because 
they are very concerned about | 
customer satisfaction, they do this 
each time they put a new version 
| on the market. 








Eds. | 
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Multi-tasking 


& Background Printing 








ulti-tasking, parallel 
processing, background 
printing, print spooling, 
etc., all have one thing in common. 
They all imply that your computer 
| will do more than one thing at a time. 
Well the Tandy 200 is a computer, 
right? So if it could do two things at 
the same time, why not put that abil- 
ity to some good use? My needs, as a 
writer and a programmer, were to be 
able to use the Tandy 200 while print- 
ing long copy, or program listings. 
Because this article is about cus- 
tomizing your 200, let's fix F8 in the 
Menu to printto LPT:the .DO filethat 
is under the widebar cursor. If the 
cursor is not over a .DO file, then no 
action is taken. A beep will announce 
the beginning and end of the print- 
out. In the program in this article, 
Line-feeds are not sent to the printer, 
but you can modify the code to suit 
your needs. 


| BE CAREFUL 
If a file is printing, you can abort it 


by pressing F8 again at the main | 


Menu. You must be careful not to use 
any print commands while back- 
ground printing is operating. Back- 
ground printing is the technique of 
having the computer do other jobs 
while it is also printing a file. 

By including the additional code 
for background printing we have ex- 
ceeded the 256 bytes that were pro- 
tected by our LOMEM installation in 
the previous two articles. We must 











now set N-2 (in line 2 of 
LOMEM.DO) and reserve 512 bytes. 

To adjust LOMEM we must start 
with a completely empty bank. Cold 
starting a RAM bank is the quickest 
way to accomplish this task. Next we 
must load, copy, or type in the fol- 
lowing TEXT file. 

This must be a TEXT file, NOT a 
BASIC program, and this TEXT file 
must be called LOMEM.DO. The 
variable N in line 2 is set for the 
number of 256 byte blocks you wish 
to reserve. 

With LOMEM.DO as the only file 





l Kill “LOMEM.DO” 
2 N=2:AD=40960 

3 POKE AD,N 

4 POKE AD+256*N,O 
5 POKE 62703,160+N 
6 NEW 








Listing 1. LOMEM.DO 


in the RAM bank, enter BASIC and 
RUN "LOMEM". This program will 


| end with a SYNTAX error but that is 


correct. At the OK prompt type NEW 
and press ENTER» (this is very im- 
portant). Now there should be NO 
syntax error. When you return to the 
Menu LOMEM.DO will no longer be 
thereand the Bytes Free message will 
be 19078 (19590 - 512). We now have 
a place to store and execute the code 
for our keyscan hook. 








SOME PROGRAMMING 
TECHNIQUES 

You may have noticed that my 
code in listing 3 does not use addi- 
tional RAM for variable storage or 
counters. The byte where data is 
stored is frequently part of the in- 
struction needing that data. Notice in 
the PRNT routine, the storage area 
for the DE and BC registers is located 
at PRNT+1 and BCNT+1, and 
similarly P.FLAG is located at 
PFLAG+1. This saves bytes and exe- 
cution time. 

Another programming technique 
thatshould be mentioned is the use of 
the offset X. This variable is set in the 
first EQU statement. The code for 
LOMEM HOOK CODE can be as- 
sembled at any location and relo- 
cated to any location with the for- 
mula: X: EQU (orgadrs +3) - resident 
address 

That's why all internal jumps and 
calls have "-X" after them. This al- 
lows for the relocation of the code by 
the START: routine. 

Printing a .DO file via F8 is the 
same as saving a .DO file to LPT:. 
Embedded control characters and 
escape sequences are sent and will 
control your printer. Output from a 
word processor, like Write ROM or 
T-WORD, can be sent to a RAM file 
and then printed from the Menu. 
This will allow a formatted printout 
while perhaps editing another docu- 
ment. I personally like to log onto a 
local BBS while waiting for a long 
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printout to complete. | 
I usually have a file called EMPH. 


DO on the menu. This is only 4 bytes 7 Baga —_— ' For Model 100 
and contains ESC E CRLF. By placing fil a i is GÍSIIHRE Model 102 
the cursor over this file and pressing 4 : = : a: cr Toshiba 1100+ 
F8, the printer is put into the empha- a Bee, tig | Map bande NEC 8201 
sized mode. This could be done for | i a ki piat Aie Epson HX20/HX40 
Compressed, Italics, or whatever fea ED a dat dni IBM Convertible 
mode you use often. After all, not all Ps." sooro  TPIBIS 2. uti Sharp 2500 
| of your .DO files will have print [ LE TF; Zenith 171 


Zenith 181 
Grid 


SalfeSkin.. rrorecror | 


commands embedded within them. 

Note: due to the dynamic reloca- 
tion of RAM files during certain 
Tandy 200 operation, background 
| printing will be suspended at times. 
Printing will resume when all appro- 
priate internal pointers are properly 
re-adjusted. 


Finally, A keyboard cover that remains in place during use! 
* PROTECTS CONTINUOUSLY -24 HOURS A DAY - Against computer downtime due to liquid spills, dust ashes, staples, paper 


Please notice in the HOOK routine clips and other environmental hazards. 
= > x * REMAINS IN PLACE during the operations of your keyboard. SafeSkin is precision molded to fit each key - like a "second skin." 
the CA LL PB YTE occurs B E FOR E -— * COVERS ENTIRE KEYBOARD CASE - Most SafeSkins are designed to cover the entire keyboard case - not just the key area. 
check to see where we are. Th 1S WI ll * EXCELLENT FEEL - The unique design eliminates any interference between adjacent keys, allowing smooth natural operation of 
5 2 your keyboard. 
allow the PBYTE routine to send a * SafeSkin IS VIRTUALLY TRANSPARENT - Keytops and side markings are clearly visible. In fact, SafeSkin is so clear, sometimes 
- ; L x you may not know it's there! 
character to the printer with every * DURABLE - LONG LASTING - SafeSkin is not a “throw-away” item. Many of our protectors have lasted over 3 years under 
keyscan. When at the Menu, the continuous daily use, without failure. 
| v s f " k ill SafeSkin is available for the portables ei above and most popular desktops PC's including IBM, APPLE, AT&T, COMPAQ, DEC 
remaining unused function keys wi EPSON KEYTRONICS, NEC, TANDY, TOSHIBA, WANG, WYSE, ZENITH. Specify computer make and model. Send $29.95, 


be tested and provisions for expan- Check or M.O., VISA & MC include n "date. Dealer inquiries invited. Free brochure available. 


; (beum inchided. nf Merritt Computer Products, Inc. 
sion have beenincluded. continue 4561 S. Westmoreland / Dallas, Texas 75237 / 214/339-0753 








Circle 65 on Reader Service card. 











| CLS: CLEAR256, 60000 122 DATA 160, 201, 58, 66,160,167, 194, 236 








0 

1 FOR I-60000 TO 60424 123 DATA 160,205,125,160,254,192,194,118 
2 PRINTe50,I:READ X:POKE I, X:SM=SM+X 124 DATA 160,205,69,79,50,66,160,35,34 

3 NEXT 125 DATA 146,160,6,8,235,237,235,33,242 
4 IF SM=50431 THEN CALL 60000 126 DATA 160,205,186,65,33,0,0,34,161 

5 BEEP:PRINT"error in data":STOP 127 DATA 160,195,118,160,205,170, 160, 195 
100 DATA 195,217,235,42,13,245,17,61,160 128 DATA 118,160, 48, 48, 48, 48, 48, 48, 48, 48 
101 DATA 223,202,164,103,34,123,160,235 129 DATA 205,77,79,8,0,205,22,161,6,4 
102 DATA 34,13,245,195,164,103,86,97,110 130 DATA 205,22,161,6,8,205,22,161,175 


103 DATA 107,32,66,97,99,107,32,32,32,32 131 DATA 50,30,253,205,247,18,195,164 











104 DATA 32,32,67,111,112,121,32,75,105 132 DATA 103,33,181,242,205,30,0,205, 98 
105 DATA 108, 108, 32, 32, 32, 32, 32,32,70 133 DATA 161, 254, 255, 204, 62,79, 202,62, 79 
106 DATA 105,108, 101,32,80,114,110,116,0 134 DATA 230,128, 194, 51, 161,17,12, 0,25 
107 DATA 245, 197,213,229, 62,0, 167,196 135 DATA 195,28, 161,35, 35,35, 205,98, 161 
108 DATA 140, 160, 56, 10, 237, 17, 188, 104 136 DATA 254,32,202, 63, 161,231,62, 5,167 
109 DATA 223,194, 118, 160, 205, 150, 79,33 137 DATA 202,76, 161,61,50,64, 161,195,53 
110 DATA 21, 160,205,204, 17, 58, 12,253,254 138 DATA 161, 62, 46,231,35,205,98, 161,231 
111 DATA 128,202,191, 160, 254, 64, 202, 250 139 DATA 35,205, 98,161, 231,62,5,50,64 
112 DATA 160, 254,32, 202,118,160, 254, 4 140 DATA 161,35,195, 25,161, 205,177,155 
113 DATA 202,118,160, 254, 2, 202,103,161 141 DATA 122,201, 243, 219, 216, 198, 4,230 
114 DATA 225, 209, 193, 241,195, 168, 156,58 142 DATA 12, 254,12, 202,106,161, 71,195 
115 DATA 72, 248,135, 95, 22, 0,33, 201, 247 143 DATA 105,155,1,118,1,33,99,234,17,1 
116 DATA 25, 235,237,126, 201, 219, 187, 230 144 DATA 160, 205, 22,131,6, 22,17, 243,235 
117 DATA 4,192,17,0,0,237,229,14,8,17 145 DATA 33,69,241,205,186,65,195,1,160 
118 DATA 242,160,205,17,110,225,192,1,0 146 DATA 72,111,111,107,24,67,97,108,108 
119 DATA 0,9,126,254,26,194,179,160,175 | 147 DATA 52,48,57,54,49,13,0,69, 100, 105 
120 DATA 50,66,160,205,69,79,82,13,254 148 DATA 116,32,0, 

121 DATA 10,196,201,132,3,96,105,34.161 149 REM END OF DATA 

















Listing 1. The BASIC code for giving your Tandy 200 reverse bank switching, free space list for all banks, and background printing. 
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SRA I AAA A AACA I A 
m LOMEM HOOK CODE BY P.GLOBMAN * 


;* Copyright (C) 1987 * 
5 Xooolokoooeolkotooelokeorotototooteterelolororokerorore 


X: EQU 60003-A001H ;CALC OFFSET 
BEEP: EQU 4F45H 
CLS: EQU 4F4DH 


CRLF: EQU 4F3EH 
F SLOT: EQU 63560 
GONE: EQU 9CA8H 
HOOKO4: EQU F50DH 
MENU: EQU 67A4H 
POINT: EQU 4F96H 


JAT MAIN MENU 


> 





s 


PRINT: EQU 11CCH 

TABLE: EQU F7C9H 

WAIT: EQU 12F7H 
ORG 60000 
JMP START ;TO RELOCATOR 

LOADER: LHLD HOOKO4 ;ORIG. JUMP 
LXI D,HOOK-X ;ADRS OUR HOOK 
BST 3 ICMP HL - DE 
JZ MENU ; ALREADY THERE 

i SHLD BYE+1-X —— ;BYE+1=OLD HOOK 
XCHG 
SHLD HOOKO4 ;HOOK-OUR CODE 
JMP MENU 

| LABEL DB ’ Bank pen Copy ; 

DB ^Kill File Prnt’,0 

HOOK: PUSH PSW ;SAVE ALL REG 
PUSH B 
PUSH D 
PUSH H 

PFLAG: MVI A,O ;P.FLAG-PFLAG41 
ANA A ;PRINTING? 
CNZ PBYTE-X ;IF YES CALL 

' DESP 10 ;LOOK AT SP 10 
LHLI ; BYTES BACK 
LXI D,68BCH 
RST 3 ;CMP TO 68BCH 
JNZ DONE-X ;IF EQ->AT MENU 





CALL POINT ;PRINT LABEL 
LXI H, LABEL-X ; LINE ON THE 
CALL PRINT ; MAIN MENU 
i LDA 64780 ;CHECK LAST KEY 
CPI 128 
JZ PRT IT-X IF F8 -> PRNT 
CPI 64 
JZ S FILE-X ;IF F7 -> S. FIL 
i CPI 32 
JZ DONE-X ;F6 AND F3 ARE 
CPI 4 ; RESERVED FOR 
JZ DONE-X ;FUTURE MODS 
$ CPE 2 
JZ BNK-X ;IF F2 -> BACK 
DONE: POP H ;ELSE RESTORE 
POP D ;AND EXIT 
POP B ;BYE*1 (GONE) 
POP PSW ;is altered by 
BYE JMP GONE ;loader subrtne 
GET LDA F_SLOT ;GET FILE 
ADD A ;ADJ OFFSET AND 


MOV E,A ;PUT IN DE REG 
MVI D,O ;THEN ADD IT TO 
LXI H, TABLE ;ADRS OF TABLE 
DAD D ;HL-ADRS OF DIR 
XCHG ;GET THAT ADRS 
LHLI ;TO HL AND MOVE 
MOV A,M JATT BYTE ->A 
RET 


Print in background (called by hook) 


PBYTE IN BBH ;LOOK AT LPT: 
ANI 04 ;BIT 3=NOT RDY 
RNZ > IF NR THEN RET 
PRNT: LXI D, OOH > DE=PRNT+1 
LHLI ;location (top) 
push h 
MVI C,8 ;GET LEN TO C 
LXI D,SIGN-X ¿SRCH FOR SIGN 
CALL 6E11H ;COMPARE STRNGS 
pop h 
RNZ ;file not there 
BCNT: LXI B, OOH ;BC-BCNT:1 
DAD B 
MOV A,M ;GET THE BYTE 
CPI 26 ;IF NOT EOF 
JNZ P CHAR-X ; THEN PRINT IT 
EOF: XRA A j; ELSE 
STA PFLAG+1-X ; RESET P.FLAG 
CALL BEEP ;ANNOUNCE END 
MVI A,13 > AND LPRINT 
P_CHAR: CPI 10 ;lF NOT LF THEN 
CNZ 84C9H ;PRINT THIS CHR 
INX B ;POINT TO NEXT 
MOV H, B ;SAVE BYTE CNTR 
MOV L,C ;1N ’BC’ 


SHLD BCNT+1 X ; 





;Print in badkéroud. ^"tiuit by F-key) 


PRT IT: LDA PFLAG*1-X ;PRINTING? LOOK 
ANA A ;AT P.FLAG 
JNZ BUSY-X > (PBYTE+1) 
CALL GET -X ;LOOK FOR .DO 
CPI 192 ;FILE. JMP DONE 
JNZ DONE-X ;IF NO .DO FILE 
DOFILE: CALL BEEP ; ANNOUNCE START 
STA PFLAG41-X SET P.FLAG 
INX H ;FILE START ADR 
SHLD PRNT+1-X ;IN ’DE’ 





MVI B,8 Record 8 chrs 
XCHG jas signature 
LHLI 
XCHG 
LXI H,SIGN-X ;dest 
CALL 41BAH ;move it 
' LXI H, 0000H ;BYTE COUNTER 
SHLD BCNT+1-X ;IN BC 
JMP DONE-X 
BUSY: CALL EOF-X 
JMP DONE-X 
SIGN: DB * 00000000” 
;SHOW ALL FILES 
FIRST BANK 
MVI B,4 ; SECOND BANK 
CALL BANK-X 


- E 


MVI B,8 ; THIRD BANK 
CALL BANK-X 
XRA A 
STA 64798 ;0 keystrokes 
CALL WAIT 
JMP MENU 
BANK: LXI H,F2B5H ;USER FILE #1 
S LOOP: CALL 1EH ;PRINT SPACE 
S1: CALL GET B-X ;ATTRIB BYTE 
CPI FFH ;NO MORE FILES 
CZ CRLF ; THEN RETURN 
JZ CRLF 
ANI 80H ;ACTIVE FILE? 
JNZ FILE-X >YES-SHOW IT! 
LXI D,11 ;NO-GET NEXT 
DAD D ;FILE SLOT AND 
JMP S1-X ;DO IT AGAIN! 
FILE: INX H ;SKIP ATTRIB 


INX H 
C LOOP: INX H 
CALL GET B-X 


;BYTE AND ADRSS 
;GET FILENAME 


Ger c T ;SKIP SPACES 
JZ SKP-X 
RST 4 ;PRINT FILENAME 
SKP: MVI A,5 ;ANY MORE CHRS? 
ANA A 
JZ C DONE-X ;NO-THEN DONE 
DCR A ;ADJUST COUNTER 
STA SKP+1-X ;STORE IT AND 
JMP C LOOP-X ;GET NEXT CHR 
C DONE: MYI A,'." ;PRINT THE DOT 
RST 4 
INX H ;AND FILE EXT 
CALL GET B-X 
RST 4 
INX H 
CALL GET B-X 
RST 4 
MVI A,5 ;RESTORE COUNT 
STA SKPr1-X 
INX H ;AND DO NEXT 
JMP S LOOP-X ;FILE SLOT 
GET B CALL 9BB1H ;MAKE THIS PEEK 
MOV A,D ;PUT BYTE IN A 


; REVERSE BANK SWITCHING 


BNK: DI ; INSTEAD OF 
IN D8H ;BACK ONE BANK, 

B1: ADI 4 ;WERE REALLY 
ANI OCH ;GOING AHEAD 
CPI OCH ;TWO BANKS BY 
JZ B1-X ;MAKING THE ROM 
MOV B,A ; THINK WE BEGAN 
JMP 9B69H ;1 BANK AHEAD 


; MOVE HOOK INTO PLACE AND INITIALIZE 


START: LXI B,START-LOADER ;# of bytes 
LXI H, LOADER ;source 
LXI D,LOADER-X  ;destination 


CALL 8316H ;move block 


;FIX BASIC F6 / F7 


MVI B,22 ;* of bytes 
LXI D,KEY 6 ;source 
LXI H,F145H destination 
CALL 41BAH ;move it 

, JMP LOADER -X j INITIALIZE 


KEY 6: DB 'Hook',24,'Cal140961', 
DB 'Edit ’,0 


13,0 





Listing 1. The assembly code for giving your Tandy 200 reverse bank switching, free space list for all banks, and background printing. 


FOR BASIC PROGRAMMERS 

The BASIC program in listing 2 
will poke the code into memory, 
maintain a checksum for data accu- 
racy, and execute the code if all is 
correct. Whether you use the BASIC 
program or the assembly source 
code, be sure to run LOMEM.DO 
first. 

The program listings (BASIC and 





ASM) include the code for stripping 
LF's. If you need to send LF's to your 
printer, you may do the following: 

In the ASM file, at the P CHAR: 
routine, replace CPI 10 with CPI 0. 

In the BASIC program, at line 
#121, replace the 10 with a 0, and 
change line #4 to 4 IF SM=50421 
THEN CALL 60000 

I would like to extend a note of 





| 


thanks to James Yi (73327,1653) for 
beta testing this project and provid- 
ing valuable input towards its com- 
pletion. 

Next month I will discuss the 
chaining or linking of programs in 
different RAM banks. 

--by Paul Globman 
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E 
— MODEL 100/NEC PC-8201A 
=== SK Memory Module 
$19 each 
Easy to install. Open the case and plug- 
-——  (hem-in. Each module expands your 
memory by 8K bytes. Extra low power 
7 components mean long battery life. Very 
=== low profile means a proper fit in the 
NEC PC-8201A. Detailed instructions 
=== make installation quick and easy. You can 
eee expand your Model 100 to 32K and your 
PC-8201 to 64K (2 banks of 32K each). 


NEW!!! 

MODEL 102 

8K Memory Module 
only $9.95 


Easy to install. Just open the hatch 
and plug it in. 














E 


Not Sure 
About A 
Product Or 
Service 


You've Seen 
Here? 





Then why not fill out the 
Reader Service Card right 
now, send it to us, and you'll 
receive more information 
directly from the vendor or 
manufacturer. 














TANDY 200 

24K Memory Module 

$49 each 

Simply pop open the hatch with a coin 


and plug in one or two of these modules. 


Each module adds a 24K bank of 
memory to the TANDY 200. It's like 
getting two more machines. The built in 
COPY function key copies files between 
banks instantly. Like our 8K, we build 
these with the lowest power and most 
reliable memory chips available. 


THE PURPLE POLICY 

Try any of our products for 30 days, 
satisfy yourself that our service, quality, 
and prices add up to the best value 
anywhere—if not completely satisfied, 


you can return the product for a full 
refund. Prices include UPS surface 
shipping (in Continental USA)—even the 
phone call is free. 


30-day money-back guarantee. 


IT'S EASY TO ORDER 
Send your order with payment to the 
address below. Or, if you prefer, credit 
card orders can be handled by 
phone—VISA, MasterCard, and 
American Express are welcome. 
California residents add 696 sales tax. 
Checks allow 3 weeks to clear. 
1-800-732-5012 TOLL FREE 
Orders only (83am—5pm PST) 
(805) 987-4788 In California 


For orders or customer service 
PURPLE 
Cad COMPUTING 


420 Constitution Ave. 
Camarillo, CA 93010 


Telex: 888661 (PURPLE) 


Canada: Canada Portable Computer, (604) 534-6441 
Australia: Softech Computer Services, (2) 419-8899 


Data Acquisition System 


Circle 74 on reader service card 








For the Model 100/102 and Model 4 


Provides engineers, technicians, educators, students and 
experimenters with a flexible solution to data acquisition and 
interface needs using the Model 102 and Model 4 computers: 


M102-DACQ-1 

8 digital input lines; 8 digital output lines; 8 channel, 8 bit A/D (ADCO809) 8 bit 
D/A (DAC0831); 3 channel, 16 bit prog timer (82C53); auto on/off; interfaces to 
system bus; 3 sq. in. wire wrap; user manual, schematics, programming in- 
structions/examples. Board (4.2" x 7.6") cabling and AC adapter. No case. 


M102-DACQ-TERM $100. 
Terminal board for DACQ card and customer hardware; all DACQ signals 
available; screw terminals and diode clamps for all analog inputs; 12 sq. in. wire 
wrap; stand-offs to mount above M102-DACQ. Cabling provided. 


HI CAPACITY BATTERY PACK 
Sealed lead acid; outputs for both M102 and DACQ; charger, case. 


M102-DACQ SYS1 
Both DACQ-1 and DACQ-TERM cards mounted in case with terminal card ex- 
posed for easy access. 


M102-DACQ SYS2 

Both DACQ-1 and DACQ-TERM cards enclosed in instrument case. Cut-outs for 
cabling provided. 

Specify M100-DACQ for Model 100 interface cables 

Specify M4-DACQ for Model 4 interface cables. 


Postage Paid, M/C, VISA, money order, check, approved P.O. 
Sales Tax: add 4% (VT residents) 


Rural Engineering Inc. 
Route 14, Box 113F, So. Royalton, VT 05068 Tel. (802) 763-8367 





Circle 88 on reader service card 


THE DATAMITE 


LOW COST ANALOG TO DIGITAL 
CONVERSION FOR YOUR TANDY LAPTOP 


Plug the cassette input of your Tandy 100/102/200 into the DATAMITE and it will provide high 
resolution, +.04% accurate A/D conversion over a 0-5 volt input range. Companion chart recorder 
software samples input voltage of DATAMITE at user-selected intervals, records value in RAM, and 
plots a calibrated scrolling graphic display of voltage data on your computer screen. See August 
1987 issue of Portable 100 for a complete description of the DATAMITE. (NEC, Olivetti versions also.) 
DATAMITE $45.00 Jones Service & Design 

Chart Recorder Software $24.00 1842 S. Nugent Road 
DATAMITE Kit $35.00 Lummi Island, WA 98262 
VISA/Master Card (206) 758-7258 





| HOW TO PLACE A CLASSIFIED AD: | 
| | 
| Categorize your advertisement (Hardware, Software, Services, Wanted, Etc.) | 
and carefully type your message. We are not responsible for correctly interpret- 
ing handwritten advertisements. Phone numbers, street numbers, dimen- 
| sions, and any abbreviations count as one word. Logos, company or product, | 
are not allowed, neither are display advertisements. Business rates are $1.60 
per word; non-business rates (individuals advertising) are $1.30 per word. Add 
| up the cost and send the advertisement copy with a check, money order, Visa, | 
| or Mastercard number to: Portable 100 Classifieds, 145 Grove St. Ext., P.O. | 
Box 428, Peterborough, NH 03458-0428, c/o Linda Tiernan. Make checks 
payable to Portable 100 Classifieds. Include your complete return address and 
| phone number (phone number is printed only if it is included in the advertise- | 
| ment itself). Materials due the 1st of the month, two months prior to the 
magazine cover date (example: materials for the February issue must be 
received by December 1st.) Advertisements received after the deadline will 
| appear in the next scheduled issue. Payment must accompany order. Nol 
| refunds for advertisements that miss deadlines, regardless of reason. We 
| reserve the right to change advertisement categories, and to reject, edit, or 
| cancel any advertisement we deem improper. There are no agency discounts 
for classifieds. For faster service call 603-924 7949. 














No.of words x (1.60)(1.30) _ #Issues to run. 








| Ad Category . 
Address 
| City _ States Zip 





| Total Enclosed x (Ad Cost x Issues) Phone Number 


| Visa/Mastercard Number 








| 
| 
| 
| 
| 
| 
| 
| Name : : | 
| 
| 
| 
| 
| 
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ADVERTISERS INDEX 


Free 
Information 











For free information on prod- 
ucts advertised in this issue of 
Portable 100, locate the Reader 
Service number corresponding 
to the advertisement that inter- 


| ests you. Circle the number on 


the Reader Service Card at the 
center of the magazine (or on 
the wrapper protecting the 
magazine if you are a sub- 
scriber) and drop it into the 
mail. The literature you've re- 
quested will be forwarded to you 
without any obligation. Please 
allow 3--5 weeks for delivery. 


ADVERTISER 
RS# Advertiser Pg 
80 H.S.I 29 
55 Jones Service & Design 36 
65 Merrit 33 
78 PCSG 11 
40 PCSG CIV 
74 Purple Computing 34 
91 Rural Engineering 34 
22 SoundSight CII 


Traveling Software 17 
Traveling Software 18 
Traveling Software 19 
Traveling Software 20 


** Please contact this advertiser directly 


Don't forget to say 
yousawit 
in Portable 100! 















* 


„With Port 


On the road. . .at home 

. ..in the office. . .in the 
air. . .the variety of tasks 
you can perform with 


In upcoming issues you 
will discover. . . 


* how new peripherals 


your Tandy portable is can make you more 
expanding constantly. productive. 

* more efficient ways 
To keep fully informed to communicate with 


your desktop. 
e where to buy low-cost 
public-domain 


and up-to-date about cur- 
rent trends, new products, 
and new uses for your 


laptop, you need Portable software. 

100 magazine. * how your business 
can be more profitable 
with your portable at 

From sophisticated input/ your intentpe. 


output (I/O) calls and 
their applications, to sim- 
ple disk drives, Portable 
100 magazine covers it all. 


* where to find the best 
bulletin boards and 
information services. 


* and much more! 


Portable 100 gives you 
features, news, columns, 
and reviews that are 
thorough and timely. 
And they are written in a 
fast-paced, easy-to-read 
style, by leading experts 
in the computer field. 


Don't miss even a single 
valuable monthly issue. 
Fill out the coupon below, 
or to charge it to your 
credit card, call 


1-603-924-7949 


Send no money now! We 
will gladly bill you. 





I want to explore ways to be more productive with my 
| YES! 


e Tandy portable. . .and save 47% off the newsstand 
price. Send me a year's subscription (12 issues) of Portable 100 for $24.97. 








CI Payment enclosed 1 Bill me 

Make checks payable to Portable 100 MONEY BACK 
GUARANTEE: 

Name = = ——— — If you are not completely 
satisfied with Portable 100, 

Address ——— you may cancel your sub- 

ie er Sdn Ns scription and receive a full 


refund. Please allow 6-8 
Canada $45.97 (Canadian funds), Mexico, $29.97. Foreign weeks for delivery of your 
Surface $44.97. One year only. U.S. Funds drawn on U.S. banks. first issue. 

Foreign Airmail, please inquire. Please allow 6-8 weeks for E 


delivery. 37DB4 





SUPER ROM 


. available for the Model 100 — guaranteed. _ 


mi t for 30 days. Masi ter 


ex 


1 «Ehe four best progrehis (e the Model 
100 all on-one'ROM...32K of power with- * 


out using any RAM for ‘program stor 
- age. ‘This. is: the PCSG Snap-In ROM 


that just presses easily. into “the little . 


ROM'socket in the compartment ón.the 


|- back: You. access thé four right from the. 


main. menu like’ built-ins. 


Write ROM. — the defmitive word 


procéssor for the Model 100, Function 
key formatting or dot commands. 


Search-and'replace. Library feature —* 
|. inserts words, phrases or whole docu-. 
} ments into text from justa code. MAP * 
lets you see a picture of your. document, ` 
In all there are 60 features, and. func- 
tions. No óne-can claim faster operation, * 
.FORM lets you create interactive forms: 


^with- or-Screen. prompts that. you. can 
answer from the keyboard: Nothing else 
for the Model 100, compares ‘with the 


features’ of Write, ROM: Exactly the 
same.as thé Write ROM Sold as a single . 
program. Infoworld' says it- *makes the. 
sur- 


Model 100 a viable writing ünit. : 


rn it for a full refund. 


passed% our ^ highest expectations \ for 


quality and clarity.” 


Lucid Spreadsheet; This is the one he l 
tank does on a PC but a whole lot better, +j 


PICO magazine says “blows Multiplan 
right out. of the socket” sand Infoworld 
performance rated ‘as - "excellent" and 
said “niakes. the Model. 100 compute.” 


"Givés you features you cannot get with 


Lotus 123. Lets you build spreadsheets 
im your Model 100 that would: consume 


140-150K on a desktop. Program gêner 


ating’ capability with no programming 


knowledge required. Variable column |. 


widths. Includes find and sort with Mu). 


tion key control.. It's. fast, recalculates ` 
like lightning. No feature has been taken. 
‘from the original, only new ones. added: 


Database: This. is. a relational data 


"pase like no other: You can do-every-. 


thing from ‘mailing lists to invoices, No 


complicated. pseudo-coding, you create . 
"input screens as simply as typing. into 
i TEXT: You are ‘not limited by size; you 


cart have as large an input, screen as ‘you 


wish. Prints out teports or forms, get- ' 
i ting. information from as many files as 


4214] 351-0564 


CAN REALLY oe IT ALL! 


TAN on one ROM. Truly the finest four programs - 


[ you like. Cone hath AMA fields. 


‘Total interface with“ Lucid worksheets. 
‘Outliner: Does that Think- 


Includes a Sort for your headlines, Lets 
you have headlines of up to 240 charac- 
ters. Has Cloning, hoisting and sideways \ 


| ‘seroll up-to 250 characters. Like Lucid, 


this.one sets a new standard. for 'outlin- - 
ers. This is the way to plan aud Quee 
your projects,’ - 

Present. Lucid and Write’ ROM 
owners can upgrade for. a 50. 1f you. B 
have bothit$ $125. .*- 

“As usual PCSG sells the Süpet ROM 
on a thirty. day. guarantee.. If for any. 


reason, you are not ‘satisfied, simply. d 


return it for-a full refund. 
-Wei are: excited: about. this product. 


"Super: ROM gives the Model 100: the ` 
"true power ofa desktop: No other multi- 
| program. ROM has software that com: 


‘pares. But don't take our word for it. We. 


invite. you to make ‘that “comparison: : 


yourself. Priced at e) 95 on Vo In 
. ROM. 1 


> Got'stuck with Sorted dit muli- ROM ? 
ev ME it uM $150.4 


11035. Harry Hines 'Blvd., #206, Dallas, TX 75229. 
153 2 MC Visa, American ise Check, or C. CHA i 





